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Editorial 

Stefano Tognon < iceOO0)libero.it > 




Hi, again. 

Finally in this issue the Arkanoid reverse engineering work is ready. Some points remain a little 
unclear, but maybe the most of the engine is completed. 

I very hope that into recreating the 5000 and over lines of the source code, no error was inser- 
ted. If you find something musically not correct, let me know for a fix onto the engine. 

As you see this number is very big into pages number used, but I prefer to insert all the source 
code of the Martin engine, instead of a little part :) 

However this work had required many times, and so the planned second part of Pattern Search- 
ing will skip to the next issue, as I have not manage all the features of the new kind of searching 
method. 



So, I have insert another Basic ripping article: in this case we see how RSID rip can be used for 
converting Basic music that did not use any kind of timing: the rip cannot be equal to the original, 
but maybe it is better that nothing. 

Remember that the copyright of the presented codes remain to the original authors: contact 
them for a business use of it. 

The last thing: as I can make some errors while I make this magazine, if you find somethings 
wrong, let me know. I have already made the version 1.1 of each issue with some corrections that 
will be released as soon as I find the time to complete the task. 

In the file at http://diqilander.iol.it/iceOO/tsid/sidin/revision.txt there are the already fixed points. 

Bye 
S.T. 



Some various news of players, programs , competition and hardware: 
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Some changes are made in this version of 
the tracker released on 5 March 2003 by Ca- 
dever: brings back the filter-command, new 
gamemusic version that doesn't save 
playroutine with music (playroutine separately 
as source code, can play music from any ad- 
dress) and doesn't lie about the rastertime 
anymore :) 

Else, GoatTracker -> NinjaTracker Conver- 
ter V1.1 is released: now tunes shouldn't bug 
anymore after packing/relocation, and support 
for almost all the effects added. 



Download the tracker from http://covertbitops.c64.orq/tools/niniatrk.zip and the converter from 
http://covertbitops.c64.orq/tools/qoatnini.zip 



^ardSID Quattro PCI^ 



The PCI version of the HardSid Quattro card is now available to buy at http://www.hardsid.com 

There are already available the 32-bit kernel-mode WDM MIDI drivers for Windows XP / Win- 
dows 2000 and updated MIDI drivers for Win98/ME 



Fsi 



SID2 0.2 




Even if this new version of TSID2 is to be considerate for test porpoise, now the library that col- 
lect time statistic of listened sids is more stable. 
Download the stuff from http://www.sf.net/proiects/tsid 



SidPlug 1.0b2 Mac OS X 




Available from 13 April 2003, this sidplayer plug-in supports all the major OS X web browsers 
(Safari, Camino, Omniweb, MSIE, etc.). Features oscilloscope output in the browser window and is 
built using Iibsidplay2, so it' s able to load RSID files. 

Download from http://samhain.c64.orq/~sid/sidplav/sidpluq-osx-1.0b2.dmq.qz 



boattrk 1.4 Mac OS X 



Available from 13 April 2003, this is the port for Mac OS X of Goattrk 1.4. Supports output via 
reSID or the Catweasel card. 

Download from http://samhain.c64.orq/~sid/sidplav/qoattracker-osx-1 .4.dmq.qz 




SIdPlay iAi Mac flS U 



Available from 13 April 2003, SIDPLAY for Mac OS X has the following features: 

Includes the SIDPLAY playback and emulation engine by Michael Schwendt (libsidplay 1 .36.57) 

Can optionally use the SIDPLAY playback library with the reSID emulation engine by Dag Lem 

(reSID0.13) 

Includes the SIDPLAY2 playback engine by Simon White (libsidplay 2.1.0, cvs from 20-Oct- 

2002) 

Support for the SID chip on the Catweasel MK3 PCI card 

Built-in directory browser, ideal for browsing the HVSC 

Playlist support, with built-in playlists for HVSC Top 100 and Best of VARIOUS 

Favorites playlist 

Support for the HVSC songlength database (put Songlengths.txt into DOCUMENTS folder of 

HVSC) 

Fast search function, can search the whole HVSC in seconds 

Built-in STIL viewer, based on STILView 2.17 by Imre ' LaLa' Olajos jr. 

AIFF export function 

MP3 export function (using the LAME mp3 encoder) 

PRG C64 executable export (using PSID64 by Roland Hermans) 

Oscilloscope and SID register views 

First-ever graphical adjustment of reSID' s filter emulation 

Oversampling support in SIDPLAY and SIDPLAY2 

Automatic HVSC update functionality 

Full tempo control 

Download from http://samhain.c64.orq/~sid/sidplav/SIDPLAY-3. 1.2.dmq.qz 
^SID64 0.6' 




The new version of the program that convert a Sid tune into a C64 runnable program is available 
here: http://www.sf.net/proiects/psid64 . 



SidWine 2 Compo 





The final classification: 



The second SidWine C64 online music com- 
petition is terminated, with two winning tunes at 
the first place. 



You can see all the event by looking at: 
http://diqilander.iol.it/ice00/tsid/sidwine2 



A special result pack with all voters com- 
ments, statistics, all the tunes in psid and prg 
format, and a demo disk is available: 



http://diqilander.iol.it/ice00/tsid/sidwine2/sidwine2 res.zip 
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Jaette Gorr 

Loretta 

paper shuriken 

Hollow 

One Step Ahead 

YUMMY PiZZA 

gr8 tImeS 2 xpoSe ur mlNd vO . 

Soppa 



Peter Sanden & Per Bolmstedt 

Stellan Andersonn (Dane/Crest) 

Ronny Engmann (Dalezy/Creators) 

Kenho 

Michal Hoffmann (Smalltown Boy) 

Opaque Fear (Thomas Sorensen) 

Turtle / TDM 

Hukka (Pietari Toivonen) 



Gradius Retromusicians Revenge Luca Carrafiello (Luca/Fire) 
Voyager 11 Pater Pi (Stephan Drost) 

Axessid Hukka (Pietari Toivonen) 

Enchanted Woods Warren Pilkington (Waz/Padua) 



hvSC 5.3 




Update 35 of the High Voltage Sid Collection is available at http://www.hvsc.c64.orq 

This update contains: 

276 new SIDs 
102 fixed/better rips 
38 fixes of PlaySID/Sidplayl specific SIDs (ie: RSID files) 
6 repeats/bad rips eliminated 
368 SID credit fixes 



for a total of 20660 sids. 




!5IDBrowser v2.2 



From http://www.sidbrowser.com the new version of SIDBrowser can be downloaded 
SIDBrowser is the easiest way to browse into HVSC, with features like STIL, sid tune length, 
playlists, favorites paths. 



steppe's and Yodelking's Ripcompo^^^^^^^^^^^^^^^^^^ 

steppe' sand Yodelking' sRipcompo is over. 65 SID HUNTs, 8 bugged tunes and 88 RSID rips 
have been done by the participators: 



1 
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4 

5 

6 

7 

8 
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10 

10 

10 

13 

14 

14 



Ninja /The Dreams 123 points 

Inge Pedersen /HVSC crew 74 points 

Adam Lorentzon /HVSC crew 73 points 

Smalltown Boy /HVSC crew/MSL 59 points 

Peter Sanden /HVSC crew 30 points 

Jan Krolzig 15 points 

Stefano Tognon 15 points 

Magnate /Obsession 9 points 

StOfF /Neoplasia 7 points 

Murdock /Tropyx/Draco/Cascade 5 points 
Zyron /F4CG/Nostalgia/0xsid Planetary 5 points 

Steppe /HVSC-crew 5 points 

Graeme Norgate 3 points 

Roland Hermans 2 points 

Fenek / Arise 2 points 




Chris AMMITOrview! 

by Stefano Tognon 




In this issue you can read an interview made with Chris Abbott that was done by some emails in- 
to this month. If you don' t^now Chris as a Sid composer, I' rrBure that you know his C64Audio re- 
lated things like Back in Time Cds and Bit Live Events! 



Hello Chris, 

why not start by giving us some Information about you? 

Born 1970, llford Essex. No particular music education, but went to good school where you learnt 
an instrument in the first year (guitar). Got keyboard at 15 and played Axel F all the time. First 
computer was an Atari 400 with 16k memory. Borrowed a friend' sC64 and fell in love with Hunch- 
back and Attack of the Mutant Camels. Got C64 eventually. Had MIDI interface and sequencer for 
the Atari 800 and the C64. Programmed some SIDs for Superior Software which are in HVSC. Left 
school with many A Levels. Went to University to study psychology. Married Tanya in 1990. 
Worked for IBM during 1 990. Did no music until 1 994 when I got an AWE32. 
Started programming MIDIs of C64 tunes. Hooked up with crap German publishing company for 
possible C64 CD (I didn' know they were crap at the time, though I should have done!). Eventually 
did it alone, hence Back in Time 1 . Many CDs follow. Back in Time Live. 

Had twins (John and Stephanie) in 2002. A drain on the productivity, but they' rdoeautiful children, 
and a lot of fun :) I spend most of my time looking after them. 

During all that time I' vdDeen an IT contractor, doing various programming, including being the only 
person in the world to have cracked AOLs "Rainman" protocol. Whew :) 



We have recently see that C64Audlo.com has paid over £20,000 to C64 composers since 
1997 In royalties and other payments. Look forward at 1997: did you believe that this could 
be possible? 

Actually, yes. I even hoped for more than that: which would have been possible if most of the 
people who bought C64s had remembered more of the tunes. 

However, the CD market was fairly limited, because most of the people who had C64s aren' par- 
ticularly nostalgic for them, I think. I run into people who had C64s all the time, but they don' te- 
member the music much, and certainly never had the same longing for CD versions that I had all 
through the period from 1985 -> 1997. 



What Is more easy to do: a Back In Time CD or a Bit Live event? An the most fun? 

A BIT Live Event isn' fun for me. Deciding what things to do is fun. The actual event mostly con- 
sists of moving heavy objects around and running around London trying to find a video adapter be- 
fore the shops close! And explaining to everyone why there are either too many or too few people. 
I enjoyed BIT Live 2 though. 
I see my mission to make sure everyone else has fun. I' m naturally a bit of a party pooper. 



What are the new CDs music that you are planned to produce? (if you can anticipate 
something) 

"The Galway Project - The Perfect SID Collection" 

"Back in Time 4 (Martial Arts)" 

"Back in time 5 (Fantasy)" 

"Back in Time 6 (completion)" 

"Music for Starchildren (a new age CD for children that coincidentally includes some C64 stuff)" 

"Crystal Dreamscapes 2" 

"01 :04 Eternal, by FTC" 

Some album by Makke 

Is that enough? :) ("Yes" shout the audience)... 



Last minute question: is there any possibility from you to compose a new Sid music in the 
C64 iike you did in the past? 

r d love to, but as you can see above, my time is limited for musical things. 



Now some quicl< finai (standard) questions: 
Reai machine vs emulator: what do you think of? 

Emulators are great, and often a lot more convenient that the real thing. Sometimes though you 
can' t beat sitting in front of a TV with a real joystick and a real SID playing :) 



6581 vs 8580 chip: any (musical) preference? 

6581 . 8580s filters don' t love my ears :) 

What is the worst sid that you compose and the better one? 

There was a pretty crap Magnetic Fields one I did in the Software House demo. The best was 
probably the Chess stuff. That was pretty damn complex! 

r mquite pleased with Galaforce 2, too. Though of course it was Martin Galway' ssoundtrack that 
made it into the game *fume* :) 

Who are your best sid authors? 

Unfair to ask :) Martin Galway and Rob Hubbard hit the spot more times than most, because they 
combined experience, hard work, technical genius and sheer musicality. 

Everyone else lacked at least one (and sometimes more) of these qualities. In the old days, my fa- 
vourite SID artists were Graeme Hansford, Chris Cox, James Lisney, Paul Norman and David 
Dunn, r m still fond of these people even now :) 
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What are the best sids ever in your opinion? 

Thing on a Spring was without doubt the most influential SID ever made, though I prefer Gerry the 
Germ, Spellbound and Kentilla. From Martin, I loved Hypersports and Roland' sRat Race, first of 
all. Fred Gray' sfinest moments were Mutants, Shadowfire and Frankie Goes to Hollywood. From 
Ben Daglish I loved Trap, Kettle and William Wobbler. From Dave Whittaker I liked 180 and BMX 
Simulator. There' s a huge list :) 



Finaiiy, many thanl<s for the time you give for this interview, and now you can say any 
things you want that the peopie wiii read from you! 

People don' Linderstand that it' sonly through the sensible generation and use of money that the 
SID scene is as well integrated as it is. The CDs give the scene journalistic credibility, as do the 
live events. And do you think the composers would have been as keen to take part if there was no 
possible money in it? Would Martin Galway have lent us his C128D and source disks if there was 
no commercial project to build with it? 

Would Rob Hubbard be performing unplugged unless he had been bought back into the scene by 
BIT Live? 

People who have supported the CDs and live events make all these things possible, so it makes 
me pretty damn angry when people spread lies about C64Audio and what we do because of 
malice or ignorance. 

As for the "C64 music should be free" movement: free C64 music is a privilege, not a right. 

It' aonly through the generosity of copyright holders and composers that RKO and HVSC exist and 

flourish. 



Webography: 

C64Audio: 
www.C64Audio.com 
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ipping BASIC program into RSID 

by Stefano Tognon < iceOO(g)libero.it > 




I had have recently the opportunity to pro- 
duce another rip of a Basic game: Telengard. 

The game is all in Basic and it is a text based 
adventure game with quite interesting sound in 
it. 

Ninja had already produce a rip of the this 
game, going extracting the Basic part that man- 
age music from all the game, but this cannot be 
executed into a Sidplayer emulator as it is not in 
machine code (however it can be run in a C64 
emulator). 

My work was so to convert the Basic rip into machine code: but as we can see after, this is more 
difficult that in Testcard (see the last issue) as no interrupts are used in the game and also Basic Tl 
variable is used only in some part. 




p^ 



ASIC code 




Before going into details it is better to look at the basic rip: 

rem ripped by ninja/the dreams in 2003 

10 dim nt% (59) :tf=256:th=255: gosub 50000 

20 a=peek(2)+l:i=l:on a gosub 50200, 50600, 50100 : end 

19000 ti$="000000" 

19002 if ti<90then 19002 

19003 return 

50000 rem *setup sound* 

50005 f=54272: fl=f: f 2=f +7 : f3=f+14: fv=f+24: ft=38400: f 4=f +4 : f5=f+ll: 

f6=f+18 
50010 i=8098: r=61176/64814 : for k=59 to step -1: nt%(k)=int (i): i=i*r: next 
50015 for q= Oto 24: poke f +q, : next: return 

50100 rem *chime i times* 

50105 poke fl+1,11: poke fl,0: poke f+5,43: poke f+6,0: poke f3+l,5: poke f3,0: 

poke fv, 15 
50110 for q=l to i: poke f4,20: poke f4,21: for qq=l to 10: poke 

fz, rnd(l) *8+200 : next 
50112 for qq=l to 600 
50120 next: next :poke f4,20: gosub 19000: poke fv, : poke fz,200: return 

50200 rem *titlepage music* 

50205 poke f+5,144: poke f+6,217: poke f+12,251: poke f+13,27: poke f+19,251: 

poke f+20,27 
50210 poke f3,70: poke f3+l,6: poke f5,0 

50215 poke f v, 8 : for j=l to 500: next: poke f6,129: ti$="000000" 
50225 poke f z, rnd (1) *4+200 : if ti<480 then 50225 
50230 poke f2,251: poke f2+l,9: poke f5,129: ti$="000000" 
50240 poke f z, rnd (1) *4+200 : if ti<540 then 50240 
50245 poke f6,0:poke f+19,16: poke f+20,215: f(0)=17: f(l)=129: f(2)=17: poke 

fv, 15 
50247 poke sz,200: poke f+5,16: poke f+6,215 
50250 ff=ft: gosub 50500 
50255 i=5: gosub 50100 
50295 q=aq+l : poke f4,0: poke f5,0: poke f6,0: for q=0 to 24: poke f +q, : next: 

return 
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50500 rem *music sequencer* 

50502 k=fl+l 

50505 ti$ = "000000" : f s=peek ( f f ) *3 : if fs=0 then return 

50515 ff=ff+l: for i=0 to 2: q=peek(ff): if q=0 then 50520 

50516 if q=255 then poke f4+i*7,0: goto 50520 

50517 poke f l+i*7, nt% (q) and th: poke k+i*7 , nt% (q) /tf : poke f4+i*7,f(i) 
50520 ff=ff+l: next i 

50535 if ti<fs then 50535 

50540 goto 50505 



poke f+6+fq*7, 244: f(fq)=17: next: 



50500 rem *throne music* 

50605 for fq=0 to 2: poke f+5+fq*7,l 

ff=38545 

50610 poke fv, 10: gosub 50500: goto 50750 

50750 rem *turn sound off* 

50755 for fq=0 to 24: poke f +f q, : next :return 

The engine has tree routines for sound: 

1 . 50100: perform a gong like sound: it is not temporized: the duration of the sound is given by the 
duration of the execution of each Basic instructions 

2. 50600: a music performed by using table of notes 

3. 50200: some long sounds, follow by a music based onto notes in table, follow with some gong 
sound of 50100 

The music based onto table is performed by the 50500 routine: a music sequencer in Basic that 
use Tl variable. Note that the tables are not present in the Basic code, however we add them in 
the machine code porting. 

If you look carefully into the Basic code, you probably are thinking that the sequencer that use Tl 
variable can be converted into IRQ routine, like I did into Testcard rip, but the other are very diffi- 
cult to convert into IRQ, as they are not timing based. 

So what to do? 




Fortunately, today we have another format that can help into this: the RSID format. 

RSID (Real SID) are PSID file that can be executed into some real C64 environment (e.g. real 
C64 or sidplay emulator), as it use the real features of the machine, not the compatibly one intro- 
duced by old PSID format. 

This means that you can listen to sample base music as in the real C64, as no digi emulation are 
done by the sidplayer. The are other features but the most important that we will use is that we can 
execute a flow of instructions without using IRQ routine at all. 

So the main idea of the RSID rip is to convert each BASIC instructions to a sequence of ma- 
chine code instructions that gives the same result: we can so convert the part like routine 50100 
without using IRQ! 

Let me give an example: 

This simple Basic instruction 

POKE 54272,10 
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will be converted into something like: 

JSR XXXDelayCicle 
LDA #10 
STA SD400 

where xxxDelayCicle is a routine that has to waste the exact number of cycles that the BASIC in- 
struction will need for being executed into the real machine. 

Well, there is a big work to do as there are lot of instructions to convert and many cycles to cal- 
culated. What to do? 

There are two way to choose: 

1 . Try to measure the average cycles in the best way we can and so write the machine code: listen 
then to the result and by try and error, modify the code until we can reach a good conversion. 
This is to considerate a temporary work that can give the opportunity to a sid fans to listen to his 
preferred Basic music into his sidplayer, even if it sounds quite different compared with the ori- 
ginal. I say temporary as I hope that one day the sidplayers will manage Basic and Kernal roms, 
so there will be no reason for using this rip anymore. 

2. Modify the code of a C64 emulator for giving the exact number of cycles that there are from two 
consecutive write operations into SID registers into the Basic program and then write a machine 
code that use this accurate cycles: we can have a definitive RSID rip with this, but a cost of lot 
of work. 

I have used the first way (no, don' fexpect I use the way 2: I should preferred going into rip of 
Marble Madness instead!) trying to calculate the cycles using this kind of measures: 

10 FOR 1=1 to 256 
20 POKE 54272, 10 
30 POKE 54272, 10 

300 POKE 54272,10 
310 NEXT i 

I have run this program in a C64 emulator and measure its executing time and then calculate 
how many cycles a single POKE instruction will take in average. 

As you can see in the code, I measure different kind of instructions and so many type of waste 
cycle routines are made. I think that the inserted comments are all you need for understand the rip. 



tSID code 




A machine code port of the BASIC program Telengard 

Some measure was made to calculate the cycles to waste, 

however some adjustement were done by heard the result with 

the original. If one day a sid emulator will manage 

BASIC and KERNAL rem, this is a tune to re-rip. 

The timing is not so perfect : try to modify this source 

if you are able to fix it. 

processor 6502 
org 1923 

.byte "RSID" 

.word $0200 ; version 2 

.word $7C00 ; data offset 

.word $0000 ; load address in cbm format 

.byte $0108 

.byte $0000 

.byte $0000 

.byte $0000 

.word $0300 ; 3 song 

.word $0100 ; default song 2 

.word $0000 

.word $0000 
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.byte "Telengard", 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

.byte "<?>", 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 

.byte "1983 Avalon Hill", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

.word $0000 

.word $0000 

.word $0000 

.byte $01 
.byte $08 

From time measurement one poke of the form f+x,y 
takes about 0,0053sec -> 5200 cycles 

for qq^l to 10: poke f z , rnd ( 1 ) *8+200 : next 
takes about 0,1402sec -> 138000 cycles 

for qq^l to 600: next 

takes about 0,682sec -> 672000 cycles 

for 1^1 to 500: next 

takes about 0,590sec ->580000 cycles 

19000 routine: 

takes about l,572sec -> 1548000 cycles 

if ti<l then goto 

takes about 0.22/12sec -> 216000/12=18000 cycles 

50225 instr: 

takes about 8 sec -> 7882000 

50240 instr: 

takes about 9 sec -> 

cmp #$00 
bne nnl 



nnl : 



nn2 : 



jmp titlepage 



cmp #$01 
bne nn2 

jmp throme 



Ida #1 
sta $8E 
jmp chime 



19000 ti$="000000" 

19002 if ti<90then 19002 

19003 return 
rl9000: 

jsr C1548000 
rts 

chime : 

; 50100 rem *chime i times^ 

; 50105 poke fl+1, 11: 

Ida #11 

sta $D401 

jsr C2600 

; poke fl,0: 
Ida #0 
sta $D400 
jsr C2600 

; poke f+5,43: 
Ida #43 
sta $D405 
jsr C2600 

; poke f +6, : 
Ida #0 
sta $D406 
jsr C2600 

; poke f 3+1, 5 : 
Ida #5 
sta $D40F 
jsr C2600 

; poke f 3, : 
Ida #0 
sta $D40E 
jsr C2600 
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; poke fv, 15 
Ida #15 
sta $D418 
jsr C2600 

; 50110 for q=l to 
Ida $8E 
jsr C5200 

nextq: 



oke f4,20 




Ida 


#20 


sta 


$D404 


jsr 


C5200 


jsr 


C5200 


jsr 


C5200 


jsr 


C5200 


jsr 


C5200 


jsr 


C5200 


jsr 


C5200 


oke f4,21 




Ida 


#21 


sta 


$D404 


jsr 


C5200 



add some more delay 
add some more delay 
add some more delay 
add some more delay 
add some more delay 
add some more delay 



; for qq^l to 10: poke f z , rnd ( 1 ) *8+200 : next 
jsr C138000 

; 50112 for qq=l to 600 
; 50120 next: 

jsr C672000 

; next : 

jsr C5200 

dec $8E 

Ida $8E 

bne nextq 

; poke f4,20: 

Ida #20 
sta $D404 
jsr C2600 

; gosub 19000: 

jsr rl9000 

; poke fv, : 

Ida #00 

sta $D418 

jsr C2600 

; poke fz,200: 

jsr C5200 

; return 



titlepage : 

; 50200 rem *titlepage music* 

;50205 poke f+5,144: poke f+6,217: poke f+12,251: poke f+13,27: poke 

Ida #144 

sta $D405 

jsr C2600 

Ida #217 

sta $D406 

jsr C2600 

Ida #251 

sta $D40C 

jsr C2600 

Ida #27 

sta $D40D 

jsr C2600 

Ida #251 

sta $D413 

jsr C2600 

Ida #27 

sta $D414 

jsr C2600 



f+19,251: poke f+20,27 



;50210 poke f3,70: 
Ida #70 
sta $D40E 



poke f3+l,6: poke f5, 
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jsr C2600 

Ida #6 

sta $D40F 

jsr C2600 

Ida #0 

sta $D40B 

jsr C2600 



;50215 poke f v, 8 : for j=l to 500; 

Ida #8 

sta $D418 

jsr C2600 



next: poke f6,129: ti$="000000" 



jsr C580000 

Ida #129 
sta $D412 

jsr C5200 

;50225 poke f z , rnd ( 1 ) *4+200 : if ti<480 then 50225 



jsr 


C1548000 


jsr 


C1548000 


jsr 


C1548000 


jsr 


C1548000 


jsr 


C1548000 



;50230 poke f2,251: poke f2+l,9: 
Ida #251 
sta $D407 
jsr C2600 



poke f5,129: ti$="000000" 



Ida 


#9 


sta 


$D408 


jsr 


C2600 


Ida 


#129 


sta 


$D40b 


jsr 


C5200 


oke 


fz,rnd(l) 


jsr 


C1548000 


jsr 


C1548000 


jsr 


C1548000 


jsr 


C1548000 


jsr 


C1548000 


jsr 


C580000 


; jsr 


C580000 



f+19,16: poke f+20,215: f(0)=17: f(l)=129: f(2)=17: poke fv, 15 



; 50245 poke f 6, O:poke 

Ida #0 

sta $D412 

jsr C2600 

Ida #16 

sta $D413 

jsr C2600 

Ida #215 

sta $D414 

jsr C2600 

Ida #17 

sta val 

jsr C2600 

Ida #129 

sta val+7 

jsr C2600 

Ida #17 

sta val+14 

jsr C2600 

Ida #15 

sta $D418 

jsr C2600 



;50247 poke sz,200: poke f+5,16: poke f+6,215 

jsr C2600 

Ida #16 

sta $D405 

jsr C2600 
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Ida 


#215 


sta 


$D406 


jsr 


C2600 


f=ft 


: gosub ; 


Ida 


#<tuneA 


sta 


$8B 


Ida 


#>tuneA 


sta 


$8C 


jsr 


C5200 



]sr sequencer 

;50255 i=5 : gosub 50100 

Ida #5 

sta $8E 

jsr C2600 

jsr chime 

;50295 q^aq+1 : poke f4,0: poke f5,0: poke f6,0: for q=0 to 24: poke f +q, : next: return 

Ida #0 

sta $D404 

jsr C5200 

Ida #0 

sta $D40b 

jsr C2600 

Ida #0 

sta $D412 

jsr C2600 

Idx #0 
loop77 : 



Ida 


#0 


sta 


$D400,x 


jsr 


C5200 


inx 




txa 




cmp 


#25 


bne 


loop77 


rts 





rts 

sequencer : 

; 50500 rem *music sequencer^ 

; 50502 k=fl+l 

Idy #$00 

jsr C2600 



seq next: 




; 50505 


ti$ = 


"000000" 




jsr 


C5200 




Ida 


($8B) ,y 




sta 


$8D 




clc 






ado 


$8D 




ado 


$8D 




sta 


$8D 




cmp 


#00 




bne 


cont22 




rts 




cont22 : 







f s=peek ( f f ) *3 : if fs-0 then return 



50515 ff=ff+l: for i-0 to 2: q=peek(ff): if q=0 then 50520 
iny 
jsr C2600 



Idx 


#$00 


jsr 


C2600 


nextSeq: 




jsr 


C2600 


Ida 


($8B) ,y 


beq 


nextVoice 



50516 if q=255 then poke f4+i*7,0: goto 50520 

jsr C2600 

cmp #255 

bne continue 

Ida #00 

sta $D404,x 

jsr C5200 

jmp nextVoice 
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continue : 

; 50517 poke f l+i*7, nt% (q) and th: poke k+i*7 , nt% (q) /tf : poke f4+i*7,f(i) 

sta $8E 

tya 

pha 

Idy $8E 

Ida low, y 

sta $D400,x 

jsr C5200 



Ida 


hi, y 


sta 


$D401,x 


jsr 


C5200 


Ida 


val, x 


sta 


$D404,x 


jsr 


C5200 


pla 




tay 




nextVoice : 




; 50520 ff=ff+l: next i 


jsr 


C2600 


iny 




txa 




clc 




ado 


#$07 


tax 




cmp 


#$15 


bne 


nextSeq 



; 50535 if ti<fs then 50535 
Ida $8D 
sbc #$03 ; some cycles are already wastle 



loop2 : 



jsr C18000 

sec 

sbc #$01 

bne loop2 



50540 goto 50505 
jsr C2600 
jmp seq_next 



throme : 






; 50600 


rem 


*throne music* 


; 50605 


for 


f q^O to 2 : poke 




Ida 


#18 




sta 


$D405 




jsr 


C5200 




Ida 


#244 




sta 


$D406 




jsr 


C5200 




Ida 


#17 




sta 


val 




jsr 


C5200 




Ida 


#18 




sta 


$D40C 




jsr 


C5200 




Ida 


#244 




sta 


$D40D 




jsr 


C5200 




Ida 


#17 




sta 


val+7 




jsr 


C5200 




Ida 


#18 




sta 


$D413 




jsr 


C5200 




Ida 


#244 




sta 


$D414 




jsr 


C5200 




Ida 


#17 




sta 


val+14 




jsr 


C5200 




Ida 


#<tuneB 




sta 


$8B 




Ida 


#>tuneB 




sta 


$8C 




jsr 


C5200 



f+5+fq*7,18: poke f +6+f q*7 , 244 : f(fq)=17: next: ff=38545 
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50610 poke fv, 10: 
Ida #10 
sta $D418 
jsr C5200 

gosub 50500: 

jsr sequencer 



goto 50750 

50750 rem *turn sound off* 

50755 for fq^O to 24: poke f +f q, : next : return 



loopl : 



Idx #0 



Ida 


#0 


sta 


$D400,x 


jsr 


C5200 


inx 




txa 




cmp 


#25 


bne 


loopl 


rts 





; waste 5200 about cycles 
C5200: 

pha 

txa 

pha 

tya 

pha 

Idx 



rep2 : 



Ida 
Ida 
Ida 
dex 
bne 
pla 
tay 
pla 
tax 
pla 
rts 



#$00 

($33, X) 
($34, X) 
$3334 

rep2 



; waste 2600 about cycles 
C2600: 

pha 
txa 
pha 
tya 
pha 
Idx 



rep20 : 



Ida 
Ida 
Ida 
dex 
bne 
pla 
tay 
pla 
tax 
pla 
rts 



#129 

($33, X) 
($34, X) 
$3334 

rep20 



; waste 138000 about cycles 
; add some nops as too fast 
C138000: 





pha 






txa 






pha 






tya 






pha 






Idx 


#$00 


rep3 : 








Idy 


#134 


repl : 


nop 
nop 
nop 
nop 
dey 






bne 


repl 




dex 






bne 


rep3 




pla 






tay 






pla 






tax 






pla 
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; was 

; fix 

C1800 



te 18000 about cycles 

18000 are too many: from #17 -> #12 



rep33 : 
repll : 



pha 
txa 
pha 
tya 
pha 
Idx #$00 

Idy #12 



dey 
bne 
dex 
bne 
pla 
tay 
pla 
tax 
pla 
rts 



repll 
rep33 



; 2 



; waste 672000 about cycles 
C672000: 

pha 

txa 

pha 

tya 

pha 

Idx #$00 



rep4 : 
rep5 : 



Idy #219 
Ida ($33, x) 



nop 
dey 
bne 
Ida 
dex 
bne 
pla 
tay 
pla 
tax 
pla 
rts 



rep5 
$33 

rep4 



; waste 580000 about cycles 
C580000: 

pha 

txa 

pha 

tya 

pha 

Idx #$00 



rep4 
rep5 



5: 



Idy #189 



Ida 
nop 
dey 
bne 
Ida 
dex 
bne 
pla 
tay 
pla 
tax 
pla 
rts 



($33, X) 



rep55 
$33 

rep44 



; waste 1548000 about cycles 
C1548000: 

pha 

txa 

pha 

tya 

pha 

Idx 



rep6 : 
rep7 : 



Idy 

Ida 
Ida 
Ida 
Ida 



#$00 

#216 

($33, X) 
($33, X) 
($33, X) 
($33, X) 
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dey 












1 








bne 


rep7 










2 








Ida 


($33 


,x) 








5 








Ida 


($33 


,x) 








5 








Ida 


($33 


,x) 








5 








nop 












2 








dex 












2 








bne 


rep6 










2 








pla 


















tay 


















pla 


















tax 


















pla 


















rts 








; 


5 






low : 


















.byte 


12, 


27, 


44, 


62 


81, 


101, 


123 


145 


.byte 


194, 


221, 


250, 


24 


55, 


89, 


125 


163 


.byte 


203, 


246, 


35, 


83 


133, 


187, 


244 


48 


.byte 


112, 


179, 


251, 


71 


151, 


236, 


70 


166 


.byte 


11, 


118, 


232, 


96 


224, 


103, 


246 


142 


.byte 


46, 


217, 


141, 


76 


23, 


237, 


208 


193 


.byte 


192, 


206, 


237, 


28 


93, 


178, 


27 


153 


.byte 


46, 


219, 


162 












hi: 

.byte 


1, 


1, 


1, 


1 


1, 


1, 


1 


1 


.byte 


1, 


1, 


1, 


2 


2, 


2, 


2 


2 


.byte 


2, 


2, 


3, 


3 


3, 


3, 


3 


4 


.byte 


4, 


4, 


4, 


5 


5, 


5, 


6 


6 


.byte 


7, 


7, 


7, 


8 


8, 


9, 


9 


10 


.byte 


11, 


11, 


12, 


13 


14, 


14, 


15 


16 


.byte 


17, 


18, 


19, 


21 


22 


23, 


25 


26 


.byte 


28, 


29, 


31 












tuneA: 


















.byte 


$20, 


$24, 


$00, 


$lf 


$20 


$27, 


$0 


3, $24 


.byte 


$10, 


$26, 


$00, 


$la 


$08 


$24, 


$0 


D, $00 


.byte 


$08, 


$22, 


$00, 


$00 


$10 


$24, 


$0 


D, $00 


.byte 


$10, 


$lf. 


$00, 


$00 


$20 


$24, 


$0 


3, $lf 


.byte 


$20, 


$27, 


$00, 


$24 


$08 


$29, 


$0 


3, $26 


.byte 


$08, 


$27, 


$00, 


$24 


$08 


$26, 


$0 


3, $22 


.byte 


$08, 


$24, 


$00, 


$21 


$20 


$26, 


$0 


3, $22 


.byte 


$04, 


$ff. 


$00, 


$ff 


$10 


$24, 


$0 


3, $30 


.byte 


$10, 


$00, 


$00, 


$2b 


$10 


$27, 


$0 


3, $2b 


.byte 


$08, 


$00, 


$00, 


$2e 


$08 


$00, 


$0 


3, $30 


.byte 


$10, 


$26, 


$00, 


$32 


$08 


$24, 


$0 


3, $2b 


.byte 


$08, 


$22, 


$00, 


$00 


$10 


$24, 


$0 


3, $2b 


.byte 


$10, 


$lf. 


$00, 


$32 


$10 


$24, 


$0 


3, $30 


.byte 


$10, 


$00, 


$00, 


$2b 


$10 


$27, 


$0 


3, $2b 


.byte 


$08, 


$00, 


$00, 


$2e 


$08 


$00, 


$0 


3, $30 


.byte 


$08, 


$29, 


$00, 


$2e 


$08 


$27, 


$0 


3, $00 


.byte 


$08, 


$26, 


$00, 


$00 


$08 


$24, 


$0 


3, $00 


.byte 


$20, 


$26, 


$lb. 


$00 


$30 


$ff, 


$0 


3, $ff 


.byte 


$00 
















tuneB: 


















.byte 


$04, 


$2f. 


$2b. 


$23 


$04 


$31, 


$2 


i, $25 


.byte 


$04, 


$32, 


$2f. 


$26 


$04 


$34, 


$3 


L, $28 


.byte 


$04, 


$36, 


$32, 


$2a 


$04 


$32, 


$2 


C, $26 


.byte 


$0a. 


$36, 


$32, 


$2a 


$04 


$35, 


$3 


3, $29 


.byte 


$04, 


$31, 


$2d. 


$25 


$0a 


$35, 


$3 


3, $29 


.byte 


$04, 


$34, 


$31, 


$28 


$04 


$30, 


$2 


;, $24 


.byte 


$0a. 


$34, 


$31, 


$28 


$04 


$2f. 


$21 


3, $23 


.byte 


$04, 


$31, 


$2d. 


$25 


$04 


$32, 


$2 


E, $26 


.byte 


$04, 


$34, 


$31, 


$28 


$04 


$36, 


$3 


2, $2a 


.byte 


$04, 


$32, 


$2f. 


$26 


$04 


$36, 


$3 


2, $2a 


.byte 


$04, 


$3b. 


$37, 


$2f 


$04 


$39, 


$3 


5, $2d 


.byte 


$04, 


$36, 


$32, 


$2a 


$04 


$32, 


$2 


E, $26 


.byte 


$04, 


$34, 


$31, 


$28 


$0a 


$36, 


$3 


2, $2a 


.byte 


$00 
















val : 


















; some byt 


es are use 


d here 








.byte 


$00 



















Conclusion 




RSID rip can be a valid solution for BASIC music. I was able even to convert BASIC music that 
use RND random number, using some random tables of lookup values. 

But maybe this can be a good material for other articles... 
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artin Galway' s Arkanoid music routine 

by Stefano Tognon < iceOO(a)libero.it > 




When I had choose a Martin tune for obtain- 
ing his music engine, Arkanoid was the most 
perfect candidate as the tune contains the new 
sample music system in it. We all known the 
story about the first tune released and pro- 
duced that contains sample, but it is very inter- 
esting to see in Galway implementation a self 
modified code to mask the use of volume re- 
gister for sample, and the use of 6502 
JMP/JSR opcode as music pattern (we will see 
this later): I think that understand the sample 
routine at that time using the available tools 
was very difficult due to the use of all this kind 
of masked code. 

Another point that appears me at the first approach with the Galway code is that it seems not so 
good coded: each voice has its code that are perfectly equal each other, so it may be coded using 
some indexed addressing mode for reducing size and having only one peace of code to maintain, 
instead of 3 equals parts. However, as all effects are coded into tables, this made the Galway en- 
gine very powerful: maybe having left each voice separate could be a Martin choice for not com- 
plicating more the engine. 





As usual the engines is based onto songs: 

tunel : 

.byte <tunel_voicel , >tunel_voicel 
.byte <tunel_voice2 , >tunel_voice2 
.byte <tunel_voice3, >tunel_voice3 
.byte $09 

Each songs have their tracks address for each voice, and a byte ($09 in the examples) that is 
the minim duration used for a note. If we increase this value, than one note takes more longer his 
duration (this is true only for the kind of notes that use table duration as we will see later). 



fra 



racks/Patterns 



In Martin engine there are not the division in tracks and patterns, but they are to be considerate 
together, as there are other methods to take advantage of the use of patterns: subroutine call. 

Well, I have see this method in old games, where the music flow is programmed by pseudo in- 
structions to be performed, but I think that almost today music engine did not use this kind of ap- 
proach any more as it very powerful if it is compiled by hand, but too complicated by an editor pro- 
gram (even if this not means that it is impossible to implement, as I have already seen very com- 
plicated editor around). 

However the first point that pop up from source looking is that instructions are not present for all 
voices, but some instructions are available only for a particular voice: this seems me that Martin 
had added some instruction when needed: maybe other version of the engine has other implemen- 
ted instructions. Otherwise, he removed the code not used by one voice for reducing memory size. 
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p nstructions/Notes 




Well, programming a track is like creating a music program using a high level language: I have 
try to give a name to each instruction that can be useful, maybe Martin should had used directly 
the hex value instead. 

You can see in the instruction table that there are instructions for controlling the program flow 
(subroutine call, jump, for/next cycle) and instruction for controlling the music parameters (like in- 
struments table, ...) 



HEX 


MNEMONIC 


DESCRIPTION 


VOICES 


00.. 5F nn 


Note / dur_tab 


Play note with duration nn given by a table of durations 
(5F=rest) 


1,2,3 


60..BFnn 


Note/dur 


Play note xx-60 with duration nn (BF=rest) 


1,2,3 


CO 


RTS 


Return to the caUer instruction. Also used for terminating 
a track. 


1,2,3 


C2 lo hi 


JSR 


Execute the subroutine at the given address (low/high) 


1,2,3 


C4 lo hi 


JMP 


Jump to the new address location (low/high) 


1,2,3 


C6 ht lo hi 


JSRT 


Execute the subroutine at the given address (low/high), 
but perform the task using ht halftones added 


1,3 


CA id va 


SET 


Set a value (va) in the instrument table at given index (id): 
all offset of the table can be used 


1,2,3 


CCnn 


FOR 


Repeat nn times (For like instruction) 


1,2,3 


CE 


NEXT 


Point on where repeat (Next like instruction) 


1,2,3 


D2 nn lo hi 


SETNI 


Set the fisrt nn item of the instrument table form the given 
address low/high 


1,2,3 


D4 lo hi 


INSTR 


set 5 instrument parameters from the given address 
location (low/high) - control/ ADSR 


1,2,3 


D6 nn va 


SETCI 


Set the current instrument value (va) at the given index 
(nn) 


1,2,3 


D8 lo hi 


EXCT 


Execute a peace of machine language code located at 
low/high address 


3 


DCidvlv2 


SET2I 


Set 2 values (vl, v2) of instruction table at the given 
index (id): all offset are allowed 


2,3 


DEidvl v2 


SET2CI 


Set 2 values (vl, v2) of the current instrument table at the 
given address index (id) 


1,2,3 


EO 


LF3 


Set low filter on voice 3 with max resonance 


3 


E2 lo hi 


FILTA 


Set the filter table with the values at address low/high 


3 


FO lo hi 


SETFI 


Set instrument frequency effect using value at address 
(low/high): the 13 values in the table are copied onto 
instrument table (offset 00.. OD) 


1,2,3 
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^ote and Duratiotr 



\ 



As we can see from the instructions table, a note is specify by a number from OOh to 5Fh, or 
from 60h to BFh. The difference is that the followed byte duration is used in two different ways: 

• 00-5F: the duration is taken by a custom built table 

• 60-BF: the duration is the specified in the byte 

So, for example the note 1 2h is equivalent to note 72h. 

The custom built table is based onto the minim byte duration that are insert into the tunes tracks 
declaration. 

Note that the 5Fh and BFh are rest notes. 

We can so see that the Martin engine used something like 6 octaves for sound, instead of full 8 
octaves the sid can manage: so the max notes to use is 5Eh (BEh). 



Instrument Table 



In the Martin engine an instrument is completely described by a table of values. Selecting an in- 
strument is performed by filling the instrument' ^9 bytes table, by using some of the given SETNI, 
INSTR instructions and by changing some values with other minor variants: SET and SET2I. A 
second table contains the actual instrument 34 bytes used for making the timbre of the instrument. 
All this values can be changed by using the SETCI and SET2CI. 

But now take a look at the instrument table: 



Pos. 


Description 


OOh 


Freq. low to add in each cycle of phase 1 


Olh 


Freq. high to add in each cycle of phase 1 


02h 


Freq. low to add in each cycle of phase 2 


03h 


Freq. high to add in each cycle of phase 2 


04h 


Freq. low to add in each cycle of phase 3 


05h 


Freq. high to add in each cycle of phase 3 


06h 


Freq. low to add in each cycle of phase 4 


07h 


Freq. high to add in each cycle of phase 4 


08h 


Freq.: number of cycles of phase 1 


09h 


Freq.: number of cycles of phase 2 


OAh 


Freq.: number of cycles of phase 3 


OBh 


Freq.: number of cycles of phase 4 


OCh 


Freq.: number of initial cycles of delay before phase 1 
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Pos. 


Description 


ODh 


Freq.: effect flag bits: xyyy yyyyz 

x=l -> reload the freq. cycles with freq. value of instrument table again 
z=l -> reload the freq. cycles but use the actual frequency value 
y=l -> continue with actual freq., no more cycle 


OEh 


Wave (pulsation amplitude): number of cycles of phase 1 


OFh 


Wave (pulsation amplitude): number of cycles of phase 2 


lOh 


Wave (pulsation amplitude): number of initial cycles of delay before phase 1 


llh 


Wave (pulsation amplitude): effect flag bits: xyyy yyyyz 

x=l -> reload the wave cycles with wave value of instrument table again 

z=l -> reload the wave cycles but use the actual wave value 

y=l -> continue with actual wave, no more cycle 


12h 


Wave (pulsation amplitude) low to add in each cycle of phase 1 


13h 


Wave (pulsation amplitude) high to add in each cycle of phase 1 


14h 


Wave (pulsation amplitude) low to add in each cycle of phase 2 


15h 


Wave (pulsation amplitude) high to add in each cycle of phase 2 


16h 


Wave (pulsation amplitude) low value 


17h 


Wave (pulsation amplitude) high value 


18h 


Control register of the voice 


19h 


Attack/Decay value 


lAh 


Sustain/Release value 


IBh 


Duration before apply release ($FF means not apply release) [?] 


ICh 


Duration before an hard restart (after the end of event of previous IBh register) 
means no effect to apply [?] 



And now the current instrument table: 



Pos. 


Description 


OOh-Olh 


Freq. Low/high to add in each cycle of phase 1 


02h-03h 


Freq. Low/high to add in each cycle of phase 2 


04h-05h 


Freq. Low/high to add in each cycle of phase 3 


06h-07h 


Freq. Low/high to add in each cycle of phase 4 


08h 


Freq.: number of cycles (to reload) of phase 1 


09h 


Freq.: number of cycles (to reload) of phase 2 


OAh 


Freq.: number of cycles (to reload) of phase 3 
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Pos. 


Description 


OBh 


Freq.: number of cycles (to reload) of phase 4 


OCh 


Freq.: number of initial cycles of delay before phase 1 


ODh 


Freq. effect flag 


OEh 


Wave (pulsation amplitude): number of cycles (to reload) of phase 1 


OFh 


Wave (pulsation amplitude): number of cycles (to reload) of phase 2 


lOh 


Wave (pulsation amplitude): number of initial cycles of delay before phase 1 


llh 


Wave (pulsation amplitude): effect flag 


12h-13h 


Wave (pulsation amplitude) low/high to add in each cycle of phase 1 


14h-15h 


Wave (pulsation amplitude) low/high to add in each cycle of phase 2 


16h-17h 


Wave (pulsation amplitude) low/high 


18h-19h 


Freq. low/high 


lAh 


Control register of voice 


IBh 


Duration before apply release ($FF means not apply release) [?] 


ICh 


Duration before an hard restart (after the end of event of previous IBh register) 
means no effect to apply [?] 


IDh 


Freq.: number of cycles of phase 1 


lEh 


Freq.: number of cycles of phase 2 


IFh 


Freq.: number of cycles of phase 3 


20h 


Freq.: number of cycles of phase 4 


21h 


Wave (pulsation amplitude): number of cycles of phase 1 


22h 


Wave (pulsation amplitude): number of cycles of phase 2 



The main part of the instruments table is the AD/SR (19h-1Ah offsets), control (18h offset), and 
wave pitch for rectangular waveform (16h-17h offsets) values (as usual). All the other values are 
for pitch control as we see in the followed part. 



frequencies Timbre 



Effects like vibrato and portamento can be produced by using the frequencies values of the in- 
strument table. 

There are 4 phases used by the timbre routine that manage frequencies: in each phase the actu- 
al value of the frequency that is produced by the sid is added to the one specified by the low/high 
values in the table (00h-01h offsets for phase 1) for a number of cycles specified by a given byte 
(08h offset for phase 1). When the cycles are over, a new phase will start. 

The important point is that the added value are in two complement logic, so you can produce 
even a subtraction. 

A special value (OCh offset) is used for delaying the initial call to the first phase, for the specified 
number of cycles. 
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Finally the effect flag (ODh) control what are to be executed after the ending of the for phase (it 
must be different from for having the frequency timbre engaged): 

• If the bit 7 is 1 , the frequency to use is taken from the value of current instrument table, then the 
cycles and adding value are taken again from the stored (into instrument table) and so a new 
sequence of phases restart. 

• If the bit 1 is 1 , the frequency used is the last one, but no other phases will begin. 

• If all other bits are not zero: the frequency to use are the actual that the Sid is generating, then 
the phases restart with the other values as in the first case. 

Let me show some examples: 



Vibrato: 

.byte $14, $00 

.byte $EC, $FF 

.byte $14, $00 

.byte $00, $00 

.byte $03, $06 

.byte $03, $00 

.byte $1E, $05 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 



In this case, after an initial delay of 1Eh cycles, there are 3 cycles where 14h is added to cur- 
rently frequencies, then for 6 cycles -14h is added (and so subtracted), finally for 3 cycles 14h is 
added. Now, the cycles can restart (05h) continuing with the actual frequencies. 



This figure shows why cycle 2° is double longer (this is neces- 
sary for having the correct up/down sequence). 




Portamento: 

.byte $01, $00 

.byte $00, $00 

.byte $00, $00 

.byte $00, $00 

.byte $35, $00 

.byte $00, $00 

.byte $00, $08 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 



This make a long up portamento with little frequency increment. 



• Other effects: 

Just changing the phases, you can reach very complex frequencies tasks: look at the source for 
more examples of real Martin use of the phases. 



Rectangular Wave Timbre 




If we use rectangular waveform, we can control the real time pitch (pulse amplitude) generation 
by using the same methods like frequencies: in this case, however, we only have two phases in- 
stead of 4. It useful to see how now the wave flag is intended for: 

• If the bit 7 is 1, the pitch to use is taken from the value of current instrument table, then the 
cycles and adding value are taken again from the stored (into instrument table) and so a new 
sequence of phases restart. 

• If the bit 1 is 1 , the pitch used is the last one, but no other phases will begin. 

• If all other bits are not zero: the pitch to use are the actual that the Sid is generating, then the 
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phases restart with the other values as in the first case. 



For examples, a classical up/down pulse amplitude effect is achieved by: 

.byte $32, $32 ; wave cycle 1/2 

.byte $14, $05 ; wave delay initial/wave effect 

.byte $0A, $00 ; wave low/high add 1 

.byte $F6, $FF ; wave low/high add 2 



flag 



pilter Table 




The Martin engine have a very complex filter manipulation, that are achieved using this filter 
table parameters: 



Pos. 


Description 


OOh-Olh 


Filter low/high value to add in each cycle of phase 1 


02h-03h 


Filter low/high value to add in each cycle of phase 2 


04h-05h 


Filter low/high value to add in each cycle of phase 3 


06h-07h 


Filter low/high value to add in each cycle of phase 4 


08h 


Filter: number of cycles of phase 1 


09h 


Filter: number of cycles of phase 2 


OAh 


Filter: number of cycles of phase 3 


OBh 


Filter: number of cycles of phase 4 


OCh 


Filter: number of initial cycles of delay before phase 1 


ODh 


Filter: effect flag bits: xyyy yyyyz 

x=l -> reload the filter cycles with filter value of instrument table again 

z=l -> reload the filter cycles but use the actual filter value 

y=l -> continue with actual filter value, no more cycle 


OEh-OFh 


Filter low(8)/high(3) value 



The effect you can generate is analogue to what we can achieve with frequencies table as even 
here there are four phases. 

Here, for examples, there is a table used into the music of Arkanoid: 



.byte $4D 

.byte $01 

.byte $D3 

.byte $FF 

.byte $FB 

.byte $FF 

.byte $FF 

.byte $FF 

.byte $03 

.byte $14 

.byte $0A 

.byte $32 

.byte $00 

.byte $04 



Oh 
Ih 
2h 
3h 
4h 
5h 
6h 
7h 
8h 
9h 
Ah 
Bh 
Ch 
Dh 



add filter low value 1 
add filter high value 1 
add filter low value 2 
add filter high value 2 
add filter low value 3 
add filter high value 3 
add filter low value 4 
add filter high value 4 
filter cycle 1 
filter cycle 2 
filter cycle 3 
filter cycle 4 
filter initial delay 
filter effect flag 
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.byte $01 ; Eh: filter low value (8 bit) 

.byte $00 ; Fh : filter high value (3 bit) 

The instruction that is to be used for setting the filter table is the FILTA, but even the FL3 (that 
set the resonance of filter to max) and some calling to EXCT of custom code are used for better 
controlling the filter generation. 



Other Instrument Effect 



At this time we not have shown the meaning of the 1Bh and 1Ch bytes into the instruments 
table. 

I can say that not all the meaning of this flags I was able to understand, however they could be 
grouped like something related to the restart (may be even an hard restart) of a note. 

Looking in my note, the meaning of these control register are: 

1 Bh: specify a duration before a release are apply (if $FF no release are to be done) 
1Ch: specify a duration before apply an hard restart (this event occurs after having executed the 
1 Bh effect). A $FF value means no hard restart to perform. 

But a complication appears as the control byte can have even the test bit set: in this case it is 
tested if 1 Bh table value is below current duration before apply a release (even if test bit is selec- 
ted, the effective control putted into sid register is the one without the test bit). 

As you can see from the source code, I did not experiment so much these table values for un- 
derstand completely they meanings, so try to found by yourself the answers :( 

For terminating the instrument viewing, in voice 2 there is a extra effect for frequency parameter 
that seems added only for Arkanoid: if bit 3 is 1, other task are performed: very important task for 
the timbre as it heavy used into tune 1 . 



Game Sound Effects 



In Arkanoid lot of sound effects are used: they are generated using the same engine, but, for be- 
ing executed quickly, no track/pattern command are used. Instead, a sound effect is activated by 
compiling an effect instrument table, and then activating the same methods {makeTimbreVx) used 
by the engine. 

The sound instruments table is a perfect copy of the instrument table, but with two extra bytes at 
the end: the low/high value of the frequency to use. As no note/duration are used, the value of the 
note is taken by these two extra bytes, and the duration is taken according by the timbre effect the 
instrument table is executing. 

The important thing is that all the 3 voices can be used for generating the sound effect (and else, 
this is the way used in the game). 



30 




Sample 



Well, now we are arrived to the most interesting point: the sample generation. 

If you are thinking that sample generation used by Martin is the "reproduction of sample" like in 
the common way used, you are not in the right way. If you were a ripper, maybe you know the right 
solution, because you should know the PSID specific extension that were introduced for managing 
this kind of "sample". 

The Martin approach to sample were to generate some sounds with volume variation by some 
procedures: each of these (6 in the Arkanoid) will reproduce a particular timbre, then by a flow in- 
struction control, the procedures were called according to the music flow. 

So, using sample in Martin' aangine is like programming the normal Sid sound voices, but using 
another syntax: 



Hex 


Mnemonic 


Description 


81 XX 


Sample 1 


Play sample type 1 for xx duration 


82 XX 


Sample 2 


Play sample type 2 for xx duration 


83 XX 


Sample 3 


Play sample type 3 for xx duration 


84 XX 


Sample 4 


Play sample type 4 for xx duration 


85 XX 


Sample 5 


Play sample type 5 for xx duration 


86 XX 


Sample 6 


Play sample type 6 for xx duration 


87 XX 


Nothing 


Play nothing for xx duration 


20 lo hi 


JSR 


Executer a subroutine at given address 


40 


NEXT 


Next like instruction 


60 


RTS 


Return from subroutine instruction 


49 XX 


FOR 


For (repeat xx times) like instruction 


4C lo hi 


JMP 


Jump to the given address 



As you can see in this table the hex used by JSR, RTS and JMP instruction are exactly the 
same opcodes as 6510 instructions: if you see the source, the flow of sample program could be in- 
terpreted by a real processor flow. This can be a coincidence, or maybe a way to make the part re- 
lated to sample generation a bit harder to understand (a disassembly of this part will show code 
very similar to real 6510 instructions). Also, the pointers low and high that point to the pseudo in- 
structions (used by the sample routine flow method) are located in two area very far, maybe this is 
for making hard to find the implementation of the routines into memory, but this can also be due to 
a memory restriction of the game. 

However, if we see the 6 samples routines (they are located into very sparse memory area) that 
contain self modified code, maybe some suspicious of a way to hidden the sample generation 
seems to be present into Martin engine. 

Here, for convenience, I show the code of one sample generation routine: 



Play Sample 1 routine 

P Sample 1 : 

Idy #$05 
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Ida 


#$94 


clc 




adc 


#$40 


sta 


Voll+2 


nextDelayP 


1: 


Idx 


#$0C 


againPl : 




Ida 


delayTabPl-l,y 


delayPl : 




sec 




sbc 


#$01 


bne 


delayPl 


Ida 


SDE 


clc 




adc 


#$01 


sta 


$DE 


and 


#$0F 


Veil: 




sta 


$DD18 


dex 




bne 


againPl 


dey 




bpl 


nextDelayPl 


Ida 


#$DD 


sta 


Voll+2 


rts 





; unmask the code 



; set repeating value 



; waste some times 



; increase up volume sequence 



; play sample 



; select next delay in table 



; mask the code again 



Each call to the Psamplel routine will generate a sample sound witch timbre is governed by two 
parameters: a repeat value and a table of delays. 

Essentially, for a given delay of one element in the table, no volume is changed for this delay 
time, after the volume is increased by some values and this will occurs until the repeating value is 
all counted. This has so generated an up volume sequences (that restart from low level when the 
max level is reached) that has a duration of one volume value given by the delay specify in the 
table. 

The tables will then contains 5 or more delay values for giving the complete timbre of the instru- 
ment. 

Now you probably should be able to understand why the Arkanoid tune will play so different into 
a sidplayer (with extended sid register) instead of the real machine (or today RSID rip). PSID ex- 
tended register try to emulated this kind of sound generation that is quite an unusual way for com- 
mon samples sound. 




Arkanoid reverse enginnering source 

all copyright for this code remains to Martin Galway 

processor 6502 

org 1923 



byte 


"RSID" 






word 


$0200 


; version 2 




word 


$7C00 


; data offset 




word 


$0000 


; load address in 


cbm format 


byte 


$08 






byte 


$01 






byte 


$0000 






byte 


$0000 






word 


$1400 


; 20 song 




word 


$0100 


; default song 1 




word 


$0000 
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.word $0000 

.byte "Arkanoid", 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

.byte "Martin Galway", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

.byte "1986 Imagine", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

.word $0000 

.word $0000 

.word $0000 

.byte $01 
.byte $08 



31 
39 

40 

A9 
Bl 



61 
69 
71 

78 
80 



+7 low addr into stack voice 1 

+7 high addr into stack voice 1 

+7 number of repeat voice 1 

+7 low addr into stack voice 2 

+7 high addr into stack voice 2 

+7 number of repeat voice 2 

+7 low addr into stack voice 3 

+7 high addr into stack voice 3 

+7 number of repeat voice 3 

+7 low addr into stack sample 

+7 high addr into stack sample 

+7 number of repeat sample 



DA 


low addr sample pattern index 


DB 


high addr sample pattern index 


DC 


duration of this sample 


DD 


stack index for sample 


DE 




DF 


sample generator routine index 


EO 


low pattern addr. voice 1 


El 


high pattern addr. voice 1 


E2 


low pattern addr. voice 2 


E3 


high pattern addr. voice 2 


E4 


low pattern addr. voice 3 


E5 


high pattern addr. voice 3 


E6 


actual note duration (length) voice 1 


E7 


actual note duration (length) voice 2 


E8 


actual note duration (length) voice 3 


E9 


stack index for voice 1 


EA 


stack index for voice 2 


EB 


stack index for voice 3 


EC 


halftone to add to current note voice 1 


ED 


halftone to add to current note voice 2 


EE 


halftone to add to current note voice 3 


EF 




FO 




Fl 


wave low vl 


F2 


wave high vl 


F3 


wave low v2 


F4 


wave high v2 


F5 


wave low v3 


F6 


wave high v3 


F7 


freq. low voice 1 


F8 


freq. high voice 1 


F9 


freq. low voice 2 


FA 


freq. high voice 2 


FB 


freq. low voice 3 


EC 


freq. high voice 3 


ED 


tmp track offset / low address of table 


FE 


high address of table 


FF 


current note to play 


pattern format : 


XX 


nn : 


xx^00..5F play note xx for time from table {nn 


xx^60..BF play note xx-60h for time nn 


CO 


RTS instr. 


C2 


lo hi JSR instr. 


C4 


lo hi JMP instr. 


C6 


ht lo hi JSRT instr. (1,3) 


CA 


id va SET instr. 


CC 


nn FOR instr. 


CE 


NEXT instr. 


D2 


nn lo hi SETNI instr. 


D4 


lo hi INSTR instr. 


D6 


nn va SETCI instr. 


D8 


lo hi EXCT instr. (3) 


DC 


id vl v2 SET2I instr. (2,3) 


DE 


id vl v2 SET2CI instr. 


EO 


LF3 instr. (3) 


E2 


lo hi FILTA instr. (3) 


FO 


lo hi SETFI instr. 



sample pattern format: 
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81 


XX 


Sample 1 


82 


XX 


Sample 2 


83 


XX 


Sample 3 


84 


XX 


Sample 4 


85 


XX 


Sample 5 


86 


XX 


Sample 6 


87 


XX 


Nothing 


20 


lo hi 


JSR yyxx 


40 




NEXT 


60 




RTS 


49 


XX 


FOR 


4C 


lo hi 


JMP yyxx 



TEMP 



$5FFF 



3EFF in the original code 



sta 


$1FFF 


sei 




LDA 


#$35 


STA 


$01 


; JSR 


$1FC0 


Ida 


#$00 


sta 


$DC0E 


Ida 


#<IRQ 


sta 


$FEFE 


Ida 


#>IRQ 


sta 


$FFFF 


jsr 


InitEngine 


jsr 


initSample 


Idx 


$1EFF 


cpx 


#$02 


bos 


notSample 


Ida 


#$F0 


sta 


$DC04 


Ida 


#$49 


sta 


$DC05 


cpx 


#$00 


bne 


isTune2 


Ida 


#$02 


Idx 


#<Sample_Tunel 


Idy 


#>Sample_Tunel 


jsr 


setSample 


jmp 


nextP 


isTune2 : 




Ida 


#$02 


Idx 


#<Sample_Tune2 


Idy 


#>Sample_Tune2 


jsr 


setSample 


jmp 


nextP 


notSample : 




Ida 


#$E8 


sta 


$DC04 


Ida 


#$24 


sta 


$DC05 


nextP : 




Idx 


$1FFF 


cpx 


#$08 


hoc 


normalTune 


jmp 


calcAddress 


normalTune 




Idy 


of f setTracks, x 


jsr 


setTracks 


setlnterrupt : 


Ida 


#$81 


sta 


$DCOD 


Ida 


#$01 


sta 


$DCOE 


cli 




Ida 


$1FFF 


cmp 


#$02 


bcc 


SLoop 


rts 




SLoop: 




jsr 


SampleGeneration 


jmp 


SLoop 



6510 I/O register 

Control register A of CIA #1 
Masckerable Interrupt (IRQ) vector 



Timer A #1: Lo Byte 
Timer A #1: Hi Byte 



sample duration 
low address 
high address 



sample duration 
low address 
high address 



Timer A #1: Lo Byte 
Timer A #1: Hi Byte 



calcolate and set address for effects 



Interrupt control register CIA 
Control register A of CIA #1 



tune to play 

first two tunes use sample 



of f setTracks : 

.byte $3D, $28, 
.byte $36, $44, 



$05, $0C, $13, $21, $2F, $36 
$4B, $52, $59, $60, $67, $6E 



IRQ: 



pha 
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tya 




pha 




txa 




pha 




Ida $1FFF 


cmp #$02 


bcs s 


kipSample 


J 


3r p 


laySample 


skipSample : 




J 


3r makeFilterEf f 


J 


3r executePatternVl 


j 


3r executePatternV2 


j 


3r e 


xecutePatternV3 


j 


3r makeTimbreVl 


j 


3r makeTimbreV2 


j 


3r makeTimbreV3 


Ida $DCOD 


P 


La 




tax 




P 


La 




tay 




P 


La 




rti 




org $2000 




.byte 


$3A, 


$20 


.byte 


$00, 


$00 


.byte 


$C6, 


$DF 


.byte 


$00, 


$00 


.byte 


$01, 


$02 


.byte 


$01, 


$01 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$3A, 


$20 


org $201F 




.byte 


$C6, 


$DF 


.byte 


$00, 


$00 


.byte 


$3A, 


$20 


.byte 


$00, 


$00 


.byte 


$01, 


$01 


.byte 


$01, 


$02 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$D8, 


$40 


org $203E 




.byte 


$9E, 


$20 


.byte 


$00, 


$00 


.byte 


$62, 


$DF 


.byte 


$00, 


$00 


.byte 


$01, 


$01 


.byte 


$01, 


$01 


.byte 


$02 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$3C, 


$41 



; number of tune to play 

; play sample for the first 2 tunes 



voice 1 
voice 2 
voice 3 
Interrupt control register CIA #1 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 



wave low/high 

control 
AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 

wave initial delay 

wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 
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org $205D 




.byte 


$1F, 


$18 


.byte 


$00, 


$00 


.byte 


$E1, 


$E7 


.byte 


$00, 


$00 


.byte 


$01, 


$02 


.byte 


$01, 


$01 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$3E, 


$30 


org $207C 




.byte 


$5E, 


$CF 


.byte 


$00, 


$00 


.byte 


$A2, 


$30 


.byte 


$00, 


$00 


.byte 


$01, 


$01 


.byte 


$01, 


$02 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$44, 


$61 


org $209B 




.byte 


$06, 


$31 


.byte 


$00, 


$00 


.byte 


$FA, 


$CE 


.byte 


$00, 


$00 


.byte 


$01, 


$01 


.byte 


$01, 


$01 


.byte 


$02 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$0C, 


$62 


org $20BA 




.byte 


$04, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$FF, 


$00 


.byte 


$00, 


$00 


.byte 


$00 




.byte 


$04 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$00, 


$F0 


.byte 


$32, 


$01 


.byte 


$20, 


$03 


org $20D9 




.byte 


$04, 


$00 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 



wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 



wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 



wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 



36 



.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$FF, 


$00 


.byte 


$00, 


$00 


.byte 


$00 




.byte 


$04 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$00, 


$F0 


.byte 


$32, 


$01 


.byte 


$2A, 


$03 


org $20F8 




.byte 


$04, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$FF, 


$00 


.byte 


$00, 


$00 


.byte 


$00 




.byte 


$04 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$00, 


$F0 


.byte 


$32, 


$01 


.byte 


$34, 


$03 


org $2117 




.byte 


$F0, 


$D8 


.byte 


$18, 


$FC 


.byte 


$9C, 


$FF 


.byte 


$00, 


$00 


.byte 


$04, 


$05 


.byte 


$0A, 


$00 


.byte 


$00 




.byte 


$85 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$09, 


$B9 


.byte 


$1E, 


$32 


.byte 


$50, 


$C3 


org $2136 




.byte 


$F0, 


$D8 


.byte 


$18, 


$FC 


.byte 


$9C, 


$FF 


.byte 


$7C, 


$15 


.byte 


$04, 


$05 


.byte 


$0A, 


$00 


.byte 


$0A 




.byte 


$87 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$43 




.byte 


$09, 


$B9 


.byte 


$1E, 


$32 


.byte 


$01, 


$00 


org $2155 




.byte 


$F0, 


$D8 


.byte 


$18, 


$FC 


.byte 


$9C, 


$FF 



freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq (to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 
AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq (to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 



wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq (to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 



wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 



wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 
freq low/high add 2 
freq low/high add 3 



37 



.byte 


$B8, 


$0B 


.byte 


$04, 


$05 


.byte 


$0A, 


$00 


.byte 


$14 




.byte 


$87 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$09, 


$B9 


.byte 


$1E, 


$32 


.byte 


$01, 


$00 


org $2174 




.byte 


$74, 


$40 


.byte 


$00, 


$00 


.byte 


$8C, 


$BF 


.byte 


$00, 


$00 


.byte 


$01, 


$02 


.byte 


$01, 


$01 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$74, 


$40 


org $2193 




.byte 


$8C, 


$BF 


.byte 


$00, 


$00 


.byte 


$74, 


$40 


.byte 


$00, 


$00 


.byte 


$01, 


$01 


.byte 


$01, 


$02 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$D8, 


$40 


org $21B2 




.byte 


$3C, 


$41 


.byte 


$00, 


$00 


.byte 


$C4, 


$BE 


.byte 


$00, 


$00 


.byte 


$01, 


$01 


.byte 


$01, 


$01 


.byte 


$02 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$03, 


$8A 


.byte 


$0F, 


$5A 


.byte 


$78, 


$82 


org $21D1 




.byte 


$E2, 


$04 


.byte 


$38, 


$CD 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$09, 


$01 



freq low/high add 4 

f req {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 
freq low/high add 2 
freq low/high add 3 
freq low/high add 4 
freq {to reload) cycle 1/2 



38 



.byte 


$00, 


$00 


.byte 


$00 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$15, 


$9B 


.byte 


$14, 


$46 


.byte 


$3A, 


$20 


org $21F0 




.byte 


$36, 


$F7 


.byte 


$38, 


$4A 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$09, 


$01 


.byte 


$01, 


$00 


.byte 


$00 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$15, 


$9B 


.byte 


$14, 


$46 


.byte 


$D8, 


$40 


org $220F 




.byte 


$16, 


$0D 


.byte 


$88, 


$96 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$07, 


$01 


.byte 


$00, 


$00 


.byte 


$00 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$15, 


$9B 


.byte 


$14, 


$46 


.byte 


$3C, 


$41 


org $222E 




.byte 


$90, 


$E8 


.byte 


$DD, 


$FF 


.byte 


$0A, 


$00 


.byte 


$00, 


$00 


.byte 


$0A, 


$50 


.byte 


$FF, 


$00 


.byte 


$00 




.byte 


$04 




.byte 


$FF, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$08, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$19, 


$BB 


.byte 


$28, 


$C8 


.byte 


$0C, 


$F8 


org $224D 




.byte 


$90, 


$E8 


.byte 


$DD, 


$FF 


.byte 


$0A, 


$00 


.byte 


$00, 


$00 


.byte 


$0A, 


$50 


.byte 


$FF, 


$00 


.byte 


$04 





f req (to reload) cycle 3/4 
freq initial delay 
freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 



39 



.byte 


$04 




.byte 


$FF, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$08, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$19, 


$BB 


.byte 


$28, 


$C8 


.byte 


$00, 


$FA 


org $226C 




.byte 


$90, 


$E8 


.byte 


$DD, 


$FF 


.byte 


$0A, 


$00 


.byte 


$00, 


$00 


.byte 


$0A, 


$50 


.byte 


$FF, 


$00 


.byte 


$08 




.byte 


$04 




.byte 


$FF, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$08, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$19, 


$BB 


.byte 


$28, 


$C8 


.byte 


$F4, 


$FB 


org $228B 




.byte 


$3A, 


$20 


.byte 


$00, 


$00 


.byte 


$C6, 


$DF 


.byte 


$00, 


$00 


.byte 


$01, 


$02 


.byte 


$01, 


$01 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$02, 


$A6 


.byte 


$05, 


$08 


.byte 


$3A, 


$20 


org $22AA 




.byte 


$C6, 


$DF 


.byte 


$00, 


$00 


.byte 


$3A, 


$20 


.byte 


$00, 


$00 


.byte 


$01, 


$01 


.byte 


$01, 


$02 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$02, 


$A6 


.byte 


$05, 


$08 


.byte 


$D8, 


$40 


org $22C9 




.byte 


$9E, 


$20 


.byte 


$00, 


$00 


.byte 


$62, 


$DF 


.byte 


$00, 


$00 


.byte 


$01, 


$01 


.byte 


$01, 


$01 


.byte 


$02 




.byte 


$05 





freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 



freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq (to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq (to reload) cycle 3/4 

freq initial delay 

freq effect flag 



40 



.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$02, 


$A6 


.byte 


$05, 


$08 


.byte 


$3C, 


$41 


org $22E8 




.byte 


$E2, 


$04 


.byte 


$08, 


$D5 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$0A, 


$01 


.byte 


$00, 


$00 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$15, 


$9B 


.byte 


$14, 


$8C 


.byte 


$3A, 


$20 


org $2307 




.byte 


$36, 


$F7 


.byte 


$08, 


$52 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$09, 


$01 


.byte 


$00, 


$00 


.byte 


$02 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$15, 


$9B 


.byte 


$14, 


$8C 


.byte 


$D8, 


$40 


org $2326 




.byte 


$16, 


$0D 


.byte 


$70, 


$9A 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$08, 


$01 


.byte 


$00, 


$00 


.byte 


$03 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$21 




.byte 


$15, 


$9B 


.byte 


$14, 


$8C 


.byte 


$3C, 


$41 


org $2345 




.byte 


$90, 


$E8 


.byte 


$CE, 


$FF 


.byte 


$30, 


$F2 


.byte 


$00, 


$00 


.byte 


$0A, 


$28 


.byte 


$01, 


$00 


.byte 


$00 




.byte 


$05 




.byte 


$FF, 


$00 


.byte 


$00 





wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq (to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 



freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq (to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq (to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 
AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq (to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave (to reload) cycle 1/2 
wave initial delay 
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.byte 


$00 




.byte 


$08, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$19, 


$BB 


.byte 


$28, 


$8C 


.byte 


$31, 


$F2 


org $2364 




.byte 


$90, 


$E8 


.byte 


$CE, 


$FF 


.byte 


$30, 


$F2 


.byte 


$00, 


$00 


.byte 


$0A, 


$28 


.byte 


$01, 


$00 


.byte 


$02 




.byte 


$05 




.byte 


$FF, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$08, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$19, 


$BB 


.byte 


$28, 


$8C 


.byte 


$19, 


$F6 


org $2383 




.byte 


$90, 


$E8 


.byte 


$CE, 


$FF 


.byte 


$30, 


$F2 


.byte 


$00, 


$00 


.byte 


$0A, 


$28 


.byte 


$01, 


$00 


.byte 


$04 




.byte 


$05 




.byte 


$FF, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$08, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$19, 


$BB 


.byte 


$28, 


$8C 


.byte 


$01, 


$FA 


org $23A2 




.byte 


$E2, 


$04 


.byte 


$38, 


$CD 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$09, 


$02 


.byte 


$01, 


$00 


.byte 


$00 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$15 




.byte 


$15, 


$E9 


.byte 


$0A, 


$5A 


.byte 


$3A, 


$20 


org $23C1 




.byte 


$36, 


$F7 


.byte 


$38, 


$4A 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$01, 


$02 


.byte 


$09, 


$00 


.byte 


$05 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 



wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 



freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 
AD/SR 



freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
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.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$15 




.byte 


$15, 


$99 


.byte 


$0A, 


$5A 


.byte 


$D8, 


$40 


org $23E0 




.byte 


$16, 


$0D 


.byte 


$88, 


$96 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$02, 


$07 


.byte 


$01, 


$00 


.byte 


$00 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$15 




.byte 


$15, 


$99 


.byte 


$0A, 


$5A 


.byte 


$3C, 


$41 


org $23FF 




.byte 


$1E, 


$FB 


.byte 


$F8, 


$2A 


.byte 


$E8, 


$03 


.byte 


$08, 


$D5 


.byte 


$0A, 


$01 


.byte 


$0A, 


$01 


.byte 


$01 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$CC, 


$FC 


.byte 


$FE, 


$FE 


.byte 


$10, 


$27 


org $241E 




.byte 


$CA, 


$08 


.byte 


$F8, 


$AD 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$09, 


$01 


.byte 


$00, 


$00 


.byte 


$02 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$CC, 


$FC 


.byte 


$FE, 


$FE 


.byte 


$CE, 


$56 


org $243D 




.byte 


$EA, 


$F2 


.byte 


$90, 


$65 


.byte 


$00, 


$00 


.byte 


$00, 


$00 


.byte 


$08, 


$01 


.byte 


$00, 


$00 


.byte 


$03 




.byte 


$05 




.byte 


$00, 


$00 


.byte 


$00 




.byte 


$00 




.byte 


$00, 


$00 


.byte 


$00, 


$00 



wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 

wave low/high 

control 

AD/SR 

freq. low/high 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq {to reload) cycle 1/2 

freq {to reload) cycle 3/4 

freq initial delay 

freq effect flag 

wave {to reload) cycle 1/2 
wave initial delay 
wave effect flag 
wave low/high add 1 
wave low/high add 2 
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.byte $00, $08 

.byte $41 

.byte $CC, $FC 

.byte $FE, $FE 

.byte $07, $87 



wave low/high 

control 

AD/SR 

freq. low/high 



Instrument table voice 1 



InstTableVl: 

.byte $23 

.byte $00 

.byte $DD 

.byte $FF 

.byte $23 

.byte $00 

.byte $00 

.byte $00 

.byte $03 

.byte $05 

.byte $02 

.byte $00 

.byte $0A 

.byte $05 



OOh 
Olh 
02h 
03h 
04h 
05h 
06h 
07h 
OBh 
09h 
OAh 
OBh 
OCh 
ODh 



freq 
freq 
freq 
freq 
freq 
freq 
freq 
freq 
freq 
freq 
freq 
freq 
freq 
freq 



low 

high 

low 

high 

low 

high 

low 

high 

cycl 

cycl 

cycl 

cycl 

dela 

effe 



add 1 voice 1 

add 1 voice 1 
add 2 voice 1 

add 2 voice 1 
add 3 voice 1 

add 3 voice 1 
add 4 voice 1 

add 4 voice 1 



e 1 voice 1 
e 2 voice 1 
e 3 voice 1 
e 4 voice 1 
y initial voice 
ct flag voice 1 



.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $19 

.byte $A4 

.byte $F9 

.byte $14 

.byte $FE 



; OEh 


; OFh 


; lOh 


; llh 


; 12h 


; 13h 


; 14h 


; 15h 


; 16h 


; 17h 



18h 
19h 
lAh 
IBh 
ICh 



wave cycle 1 voice 1 
wave cycle 2 voice 1 
wave delay initial voice 
wave effect flag voice 1 
wave low add 1 voice 1 
wave high add 1 voice 1 
wave low add 2 voice 1 
wave high add 2 voice 1 
wave low voice 1 
wave high voice 1 

control of voice 1 
AD voice 1 
SR voice 1 



Instrument table voice 2 



InstTableV2: 

.byte $00 

.byte $00 

.byte $00 

.byte $00 

.byte $01 

.byte $00 

.byte $01 

.byte $00 

.byte $13 

.byte $35 

.byte $00 

.byte $03 

.byte $00 

.byte $00 



OOh 
Olh 
02h 
03h 
04h 
05h 
06h 
07h 
08h 
09h 
OAh 
OBh 
OCh 
ODh 



freq low add 1 voice 2 
freq high add 1 voice 2 
freq low add 2 voice 2 
freq high add 2 voice 2 
freq low add 3 voice 2 
freq high add 3 voice 2 
freq low add 4 voice 2 
freq high add 4 voice 2 
freq cycle 1 voice 2 
freq cycle 2 voice 2 
freq cycle 3 voice 2 
freq cycle 4 voice 2 
freq delay initial voice 
freq effect flag voice 2 



.byte $32 

.byte $32 

.byte $14 

.byte $00 

.byte $0A 

.byte $00 

.byte $F6 

.byte $FF 

.byte $00 

.byte $08 



; OEh 


; OFh 


; lOh 


; llh 


; 12h 


; 13h 


; 14h 


; 15h 


; 16h 


; 17h 



wave cycle 1 voice 2 
wave cycle 2 voice 2 
wave delay initial voice 2 
wave effect flag voice 2 
wave low add 1 voice 2 
wave high add 1 voice 2 
wave low add 2 voice 2 
wave high add 2 voice 2 
wave loh voice 2 
wave high voice 2 



.byte $41 

.byte $01 

.byte $F7 

.byte $04 

.byte $14 



18h 
19h 
lAh 
IBh 
ICh 



control of voice 2 
AD voice 2 
SR voice 2 



Instrument table voice 3 



InstTableV3: 

.byte $19 

.byte $00 

.byte $E7 

.byte $FF 

.byte $19 

.byte $00 

.byte $00 



OOh 
Olh 
02h 
03h 
04h 
05h 
06h 



freq low add 1 voice 3 
freq high add 1 voice 3 
freq low add 2 voice 3 
freq high add 2 voice 3 
freq low add 3 voice 3 
freq high add 3 voice 3 
freq low add 4 voice 3 
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.byte $00 
.byte $02 
.byte $04 
.byte $02 
.byte $00 
.byte $06 
.byte $05 

.byte $32 
.byte $32 
.byte $00 
.byte $05 
.byte $14 
.byte $00 
.byte $EC 
.byte $FF 
.byte $00 
.byte $06 

.byte $41 
.byte $14 
.byte $E8 
.byte $1E 
.byte $28 

; main filter table 

MainFilterTable : 

.byte $4D, $01, $D3, $FF, 
.byte $03, $14, $0A, $32, 



07h 
OBh 
09h 
OAh 
OBh 
OCh 
ODh 



; OEh 


; OEh 


; lOh 


; llh 


; 12h 


; 13h 


; 14h 


; 15h 


; 16h 


; 17h 



IBh 
19h 
lAh 
IBh 
ICh 



freq high add 4 voice 3 
freq cycle 1 voice 3 
freq cycle 2 voice 3 
freq cycle 3 voice 3 
freq cycle 4 voice 3 
freq delay initial voice 3 
freq effect flag voice 3 

wave cycle 1 voice 3 
wave cycle 2 voice 3 
wave delay initial voice 1 
wave effect flag voice 1 
wave low add 1 voice 3 
wave high add 1 voice 3 
wave low add 2 voice 3 
wave high add 2 voice 3 
wave lo voice 3 
wave hi voice 3 

control of voice 3 
AD voice 3 
SR voice 3 



$FB, $FF, $FF, $FF 
$00, $04, $01, $00 



; current filter table 
CurFilterTable: 

.byte $4D 

.byte $01 

.byte $D3 

.byte $FF 

.byte $FB 

.byte $FF 

.byte $FF 

.byte $FF 

.byte $03 

.byte $14 

.byte $0A 

.byte $32 

.byte $00 

.byte $00 

.byte $01 

.byte $00 

ActFilterTable: 
.byte $00 
.byte $00 
.byte $00 
.byte $00 
.byte $00 
.byte $00 



Oh 
Ih 
2h 
3h 
4h 
5h 
6h 
7h 
8h 
9h 
Ah 
Bh 
Ch 
Dh 
Eh 
Fh 



Oh 
Ih 
2h 
3h 
4h 
5h 



add 

add 

add 

add 

add 

add 

add 

add 

filt 

filt 

filt 

filt 

filt 

filt 

filt 

filt 



filte 
filte 
filte 
filte 
filte 
filte 
filte 
filte 
er cy 
er cy 
er cy 
er cy 
er in 
er ef 
er lo 
er hi 



low value 1 
high value 1 
low value 2 
high value 2 
low value 3 
high value 3 
low value 4 
high value 4 

cle 1 

cle 2 

cle 3 

cle 4 

itial delay 

feet flag 

w value (8 bit) 

gh value (3 bit) 



actual filter low value 

actual filter high value 

actual filter cycle 1 

actual filter cycle 2 

actual filter cycle 3 

actual filter cycle 4 



; current istrument table voice 1 




CurlnstTableVl : 




.byte 


$23, 


$00 


OOh 


.byte 


$DD, 


$FF 


02h 


.byte 


$23, 


$00 


04h 


.byte 


$00, 


$00 


06h 


.byte 


$03, 


$05 


OBh 


.byte 


$02, 


$00 


Oah 


.byte 


$00 




Och 


.byte 


$05 




Odh 


.byte 


$32, 


$32 


Oeh 


.byte 


$00 




lOh 


.byte 


$00 




llh 


.byte 


$0A, 


$00 


12h 


.byte 


$F6, 


$FF 


14h 


.byte 


$00, 


$08 


16h 


.byte 


$2C, 


$1A 


IBh 


.byte 


$10 




lAh 


.byte 


$00 




IBh 


.byte 


$00 




ICh 


.byte 


$00, 


$00 


IDh 


.byte 


$01, 


$00 


lEh 


.byte 


$00, 


$04 


21h 


; current istrument table voice 2 





CurInstTableV2: 
.byte $00, $00 
.byte $00, $00 



freq low/high add 1 voice 1 

freq low/high add 2 voice 1 

freq low/high add 3 voice 1 

freq low/high add 4 voice 1 

freq (to reload) cycle 1/2 voice 1 

freq (to reload) cycle 3/4 voice 1 

freq initial delay voice 1 

freq effect flag voice 1 

wave (to reload) cycle 1/2 voice 1 

wave initial delay voice 1 

wave effect flag voice 1 

wave low/high add 1 voice 1 

wave low/high add 2 voice 1 

wave low/high voice 1 

freq low/high voice 1 

control of voice 1 



freq cycle 1/2 voice 1 
freq cycle 3/4 voice 1 
wave cycle 1/2 voice 1 



OOh: freq low/high add 1 voice 2 
02h: freq low/high add 2 voice 2 
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.byte $01, 

.byte $01, 

.byte $13, 

.byte $37, 

.byte $00 

.byte $00 

.byte $32, 

.byte $00 

.byte $00 

.byte $0A, 

.byte $F6, 

.byte $00, 

.byte $2C, 

.byte $41 

.byte $00 

.byte $00 

.byte $00, 

.byte $02, 

.byte $1E, 



$00 
$00 
$35 
$03 



$32 



$00 

$FF 
$08 
$1A 



$00 
$00 
$32 



04h 

06h 

08h 

Oah 

Och 

Odh 

Oeh 

lOh 

llh 

12h 

14h 

16h 

IBh 

lA 

IB 

IC 

ID 

IF 

21h 



freq low/high add 3 voice 2 
freq low/high add 4 voice 2 
freq (to reload) cycle 1/2 voice 2 
freq (to reload) cycle 3/4 voice 2 
freq. initial delay voice 2 
freq. effect flag voice 2 
wave cycle 1/2 voice 2 
wave initial delay voice 2 
wave effect flag voice 2 
wave low/high add 1 voice 2 
wave low/high add 2 voice 2 
wave low/high voice 2 
freq low/high voice 2 
control of voice 2 



freq cycle 1/2 voice 2 

freq cycle 3/4 voice 2 

; wave cycle 1/2 voice 1 



current istrument table voice 3 



Curlnst 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 



TableV3: 

$19, $00 

$E7, $FF 

$19, $00 

$00, $00 

$02, $04 

$02, $00 
$00 
$05 

$32, $32 
$00 
$05 

$14, $00 

$EC, $FF 

$00, $06 



$B0, 

$41 

$00 

$00 

$00, 

$01, 

$00, 



$0E 



$00 
$00 
$1F 



OOh 
02h 
04h 
6h 
08h 
Oah 
Och 
Odh 
Oeh 
lOh 
llh 
12h 
14h 
16h 
18h 
lAh 
IBh 
ICh 
ID: 
IF: 
21h 



freq 


low/h 


freq 


low/h 


freq 


low/h 


freq 


low/h 


freq 


(to r 


freq 


(to r 


freq 


init 


freq 


effe 


wave 


cycle 


wave 


initi 


wave 


ef fee 


wave 


low/h 


wave 


low/h 


wave 


low/h 


freq 


low/h 


control of 



igh add 1 voice 3 

igh add 2 voice 3 

igh add 3 voice 3 

igh add 4 voice 3 

eload) cycle 1/2 voice 3 

eload) cycle 3/4 voice 3 

ial delay voice 3 

ct flag voice 3 

1/2 voice 3 
al delay voice 3 
t flag voice 3 
igh add 1 voice 3 
igh add 2 voice 3 
igh voice 3 
igh voice 3 

voice 3 



freq cycle 1/2 voice 2 
freq cycle 3/4 voice 2 
wave cycle 1/2 voice 1 



voiceNumber : 
.byte $00 



voice number (0,1,2) on where apply filter 



tmpCutF: 
.byte $00 

minDuration : 
.byte $04 



; Play music flag: 
playMusicVl : 

.byte $00 
playMusicV2 : 

.byte $00 
playMusicV3 : 

.byte $01 



O^no music, l^music 



tmpVIndex : 
.byte $FF 



tmp voices index 



tmpAVIndex : 
.byte $FE 



tmp address index voice 



durationTable : 

.byte $04, $08, 

.byte $14, $18, 

.byte $24, $28, 

.byte $34, $38, 

.byte $44, $48 

.byte $54, $58 

.byte $64, $68 



$0C, $10 

$1C, $20 

$2C, $30 

$3C, $40 

$4C, $50 

$5C, $60 

$6C, $70 

.byte $74, $78, $7C, $80 



; offset for control register of each voice 
of f ControlVoice : 



.byte $02 
.byte $09 
.byte $10 



$D404 control voice 1 
$D40A control voice 2 
$D411 control voice 3 



; offset on one voice into instrument table 
of f InstrVoice : 

.byte $00, $1D, $3A 

; offset for current instrument into music effect 
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of fCurrEf feet 

.byte $17, $3A, $5D 

highFreq: 

.byte $17, $28, $3A, $4C, $60, $75, $8B, $A3 

.byte $BC, $D6, $F2, $10, $2F, $50, $73, $99 

.byte $C0, $EA, $16, $45, $77, $AC, $E4, $1F 

.byte $5E, $A0, $E7, $32, $80, $D4, $2D, $8B 

.byte $EE, $58, $C8, $3E, $BC, $41, $CD, $63 

.byte $01, $A8, $5A, $16, $DD, $B0, $90, $7C 

.byte $77, $81, $9B, $C5, $02, $51, $B4, $2C 

.byte $BA, $60, $1F, $F9, $EF, $03, $36, $8B 

.byte $03, $A1, $67, $57, $73, $C0, $3E, $F1 

.byte $DE, $05, $6C, $16, $06, $43, $CE, $AE 

.byte $00 



lowFreq 


















.byte 


$01, 


$01, 


$01, 


$01, 


$01, 


$01, 


$01, 


$01 


.byte 


$01, 


$01, 


$01, 


$02, 


$02, 


$02, 


$02, 


$02 


.byte 


$02, 


$02, 


$03, 


$03, 


$03, 


$03, 


$03, 


$04 


.byte 


$04, 


$04, 


$04, 


$05, 


$05, 


$05, 


$06, 


$06 


.byte 


$06, 


$07, 


$07, 


$08, 


$08, 


$09, 


$09, 


$0A 


.byte 


$0B, 


$0B, 


$0C, 


$0D, 


$0D, 


$0E, 


$0F, 


$10 


.byte 


$11, 


$12, 


$13, 


$14, 


$16, 


$17, 


$18, 


$1A 


.byte 


$1B, 


$1D, 


$1F, 


$20, 


$22, 


$25, 


$27, 


$29 


.byte 


$2C, 


$2E, 


$31, 


$34, 


$37, 


$3A, 


$3E, 


$41 


.byte 


$45, 


$4A, 


$4E, 


$53, 


$58, 


$5D, 


$62, 


$68 



.byte $00 



2615 jsr executePatternVl 

jsr executePatternV2 

jsr executePatternV3 

jsr makeTimbreVl 

jsr makeTimbreV2 

jsr makeTimbreV3 

jsr makeFilterEf f 
rts 



Set tracks at offset given by y 



setTracks ; 

Ida trackTable+1, y 

sta minDuration 

and #$0F 

sta buildDurTable+1 

Idx #$02 

stx tmpVIndex 



Idx 
stx 
dey 



#$04 
tmpAVIndex 



nextVoice : 

Ida trackTable,y 

ora trackTable+1 , y 

beq afterSetting 

Idx tmpAVIndex 

Ida trackTable,y 

sta $EO,x 

Ida trackTable+1, y 

sta $El,x 



sty 
Idx 
Idy 
Ida 
sta 
sta 
sta 
Ida 
sta 
Ida 
sta 
sta 
Idy 



$FD 

tmpVIndex 

of f InstrVoice, : 

#$00 

$EC,x 

InstTableVl+13, 

InstTableVl+17, 

#$07 

$E9,x 

#$01 

$E6,x 

playMusicVl, x 

$FD 



afterSetting 
dey 
dey 
dec 
dec 
dec 
bpl 
clc 
Ida 



tmpAVIndex 
tmpAVIndex 
tmpVIndex 
nextVoice 



read the minime note duration 

tmp voices index 

tmp address voice index 

test if low and high address are 

skip if address are 

tmp address voice index 

store low pattern addr . voice in x 

store high pattern addr. voice in x 

tmp track offset 
tmp voices index 
offset of one voice into instr. table 

freq. effect voice from x 
wave effect voice from x 

init stack index for voice x 

store actual note duration (length) voice in 
play music flag 
tmp track offset 



tmp address voice index 
tmp address voice index 
tmp voices index 



#$00 
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buildDurTable: 



adc 
sta 
inx 
cpx 
bcc 
rts 



#$04 
durationTable, x 

#$20 
buildDurTable 



build the table of note duration 
add minime duration 



Init the engine 



initEngine : 





Idx 


#$16 


loopInitE : 






Ida 


#$08 




sta 


$D400,x 




Ida 


#$00 




sta 


$D400,x 




dex 






bpl 


loopInitE 




sta 


CurInstTableVl+28 




sta 


CurInstTableV2+28 




sta 


CurInstTableV3+28 




sta 


CurFilterTable+13 




sta 


playMusicVl 




sta 


playMusicV2 




sta 


playMusicV3 




stx 


voiceNumber 




Ida 


#$F0 




sta 


$D417 




Ida 


#$0F 




sta 


TEMP 




sta 


$D418 




rts 





Voice 1: Frequency control (lo byte) 
Voice 1: Frequency control (lo byte) 



filter flag effect 

play music flag voice 1 

play music flag voice 2 

play music flag voice 3 

voice number (0,1,2) on where apply filter 

Filter resonance control/voice input control 



Select volume and filter mode 



Voice 1: Reload the cycle for 
Wave effect 



reloadWaveCycleVl : 

Idx CurInstTableVl+22 
Idy CurInstTableVl+23 



reloadWCycleVl : 
stx $F1 
sty 
Ida 
sta 
Ida 
sta 
rts 



$F2 

CurInstTableVl+14 

CurInstTableVl+33 

CurInstTableVl+15 

CurInstTableVl+34 



read current wave low voice 1 
read current wave high voice 1 



wave low vl 

wave high vl 

read current (to reload) wave cycle 1 voice 1 

store current wave cycle 1 voice 1 

read current (to reload) wave cycle 2 voice 1 

store current wave cycle 2 voice 1 



Voice 2: Reload the cycle for 
Wave effect 



reloadWaveCycleV2 : 

Idx CurInstTableV2+22 
Idy CurInstTableV2+23 

reloadWCycleV2 : 
stx $F3 
sty $F4 

Ida CurInstTableV2+14 
sta CurInstTableV2+33 
Ida CurInstTableV2+15 
sta CurInstTableV2+34 
rts 



read current wave low voice 2 
read current wave high voice 2 

wave low v2 

wave high v2 

read current (to reload) wave cycle 1 voice 2 

store current wave cycle 1 voice 2 

read current (to reload) wave cycle 2 voice 2 

store current wave cycle 2 voice 2 



Voice 3: Reload the cycle for 
Wave effect 



reloadWaveCycleV3 : 

Idx CurInstTableV3+22 
Idy CurInstTableV3+23 

reloadWCycleV3 : 



stx 
sty 

Ida 
sta 
Ida 
sta 
rts 



$F5 

$F5 

CurInstTableV3+14 

CurInstTableV3+33 

CurInstTableV3+15 

CurInstTableV3+34 



read current wave low voice 3 
read current wave high voice 3 

wave low v3 

wave high v3 

read current (to reload) wave cycle 1 voice 3 

store current wave cycle 1 voice 3 

read current (to reload) wave cycle 2 voice 3 

store current wave cycle 2 voice 3 



Reload the filter cycle 



reloadFilter Cycle : 

Idx CurFilterTable+14 



read filter low value (8 bit) 
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Idy CurFilterTable+15 

stx ActFilterTable+0 

sty ActFilterTable+1 

reloadFCycle : 

Ida CurFilterTable+8 

sta ActFilterTable+2 

Ida CurFilterTable+9 

sta ActFilterTable+3 

Ida CurFilterTable+10 

sta ActFilterTable+4 

Ida CurFilterTable+11 

sta ActFilterTable+5 
rts 



read filter high value (3 bit) 

store actual filter low value (8 bit) 

store actual filter high value (3 bit) 



filter cycle 1 

store actual filter cycle 1 

filter cycle 2 

store actual filter cycle 2 

filter cycle 3 

store actual filter cycle 3 

filter cycle 4 

store actual filter cycle 4 



Set Sound Effect for voice 
a/y address of table I x voice 



setSoundEf f ect : 

sta $FD 

sty $FE 

stx tmpVIndex 

Ida #$00 

sta $D417 

Ida #$0F 

sta $D418 

Ida of f ControlVoice, x 

sta voiceOf f set+1 

Ida #$08 

Idy of f ControlVoice, X 

sta $D402,y 



; tmp voices index 

; Filter resonance control/voice input control 

; Select volume and filter mode 

; control: test bit on 

; Voice 1: Wave form pulsation amplitude (lo byte) 



set voice ADSR, control and wave hi/lo 
Idy #$1A 
Idx #$04 



loopVoiceSet : 

Ida ($FD),y 
voiceOf f set : 

sta $D410,x 

dey 

dex 

bpl loopVoiceSet 

Idy #$1D 

Idx voiceOf f set+1 

Ida ($FD),y 

sta $D3FE,x 

iny 

Ida ($FD),y 

sta $D3FF,x 

Idy tmpVIndex 

Idx of f CurrEf f ect, y 

Idy #$1E 

sta CurInstTableVl+2, X 

dey 

Ida ($FD),y 

sta CurInstTableVl+l,x 

dey 

Ida ($FD),y 

sta CurInstTableVl+5, X 

dey 

Ida ($FD),y 

sta CurInstTableVl+4, X 

Idy #$18 

Ida ($FD),y 

sta CurInstTableVl+3, X 

Idy #$17 

copyLoop : 

Ida ($FD),y 

sta CurInstTableVl+0, X 

dex 

dey 

bpl copyLoop 

inx 

bne notVoicel 

Ida CurInstTableVl+17 

beq reloadFreqCycleVl 

jsr reloadWaveCycleVl 



read value from table 

store in sid register of given voice 



store freq. low voice x 

store freq. high voice x 
tmp voices index 

current freq high voice from x 

current freq low voice from x 



current control of voice from x 



current instrument table voice 1 



zero means voice 1 



read current wave effect flag voice 1 
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Voice 1 : Reload the cycle for 
Freq effect 



reloadFreqCycleVl : 

Idx CurInstTableVl+24 

Idy CurInstTableVl+25 

stx $F7 

sty $F8 

reloadFCycleVl : 

Ida CurInstTableVl+11 

sta CurInstTableVl+32 

Ida CurInstTableVl+10 

sta CurInstTableVl+31 

Ida CurInstTableVl+9 

sta CurInstTableVl+30 

Ida CurInstTableVl+8 

sta CurInstTableVl+29 
rts 



read current freq. low voice 1 
read current freq. high voice 1 
store freq. low voice 1 
store freq. high voice 1 



read current (to reload) freq cycle 4 voice 1 

store current freq cycle 4 voice 1 

read current (to reload) freq cycle 3 voice 1 

store current freq cycle 3 voice 1 

read current (to reload) freq cycle 2 voice 1 

store current freq cycle 2 voice 1 

read current (to reload) freq cycle 1 voice 1 

store current freq cycle 1 voice 1 



notVoicel : 

cpx #$4 6 

beq notVoice2 

Ida CurInstTableV2+17 

beq skipReloadWCV2 

jsr reloadWaveCycleV2 

skipReloadWCV2: 

Ida CurInstTableV2+13 

beq exitRFCV2 



$46 means voice 2 



read current wave effect flag voice 2 



read current freq. flag effect voice 2 



Voice 2 : Reload the cycle for 
Freq effect 



reloadFreqCycleV2 : 

Idx CurInstTableV2+24 
Idy CurInstTableV2+25 
stx $F9 
sty $FA 



read current freq. low voice 2 
read current freq. high voice 2 
store freq. low voice 2 
store freq. high voice 2 



reloadFCycleV2 : 

Ida CurInstTableV2+ll 
CurInstTableV2+32 
CurInstTableV2+10 
CurInstTableV2+31 
CurInstTableV2+9 
Cur Inst TableV2+30 
CurInstTableV2+8 
CurInstTableV2+2 9 



sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
exitRFCV2 
rts 



read current (to reload) freq cycle 4 voice 

store current freq cycle 4 voice 2 

read current (to reload) freq cycle 3 voice 

store current freq cycle 3 voice 2 

read current (to reload) freq cycle 2 voice 

store current freq cycle 2 voice 2 

read current (to reload) freq cycle 1 voice 

store current freq cycle 1 voice 2 



notVoice2 : 

Ida CurInstTableV3+17 

beq skipReloadWCV3 

jsr reloadWaveCycleV3 

skipReloadWCV3: 

Ida CurInstTableV3+13 

beq exitRFCV2 



read wave effect flag voice 3 



read freq. effect flag voice 3 



Voice 3: Reload the cycle for 
Freq effect 



reloadFreqCycleV3 : 

Idx CurInstTableV3+24 
Idy CurInstTableV3+25 
stx $FB 
sty $FC 



read current freq. low voice 3 
read current freq. high voice 3 
store freq. low voice 3 
store freq. high voice 3 



reloadFCycleV3 : 

Ida CurInstTableV3+ll 

sta CurInstTableV3+32 

Ida CurInstTableV3+10 

sta CurInstTableV3+31 

Ida CurInstTableV3+9 

sta CurInstTableV3+30 

Ida CurInstTableV3+8 

sta CurInstTableV3+29 
rts 



read current (to reload) freq cycle 4 voice 3 

store current freq cycle 4 voice 3 

read current (to reload) freq cycle 3 voice 3 

store current freq cycle 3 voice 3 

read current (to reload) freq cycle 2 voice 3 

store current freq cycle 2 voice 3 

read current (to reload) freq cycle 1 voice 3 

store current freq cycle 1 voice 3 



Voice 1: JSRT instruction 
execute a subroutine and set the 
number of halftone to transpose 
#1 halfnote to add (?) 
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#2 low address 
#3 high address 



inst_C6_vl : 

Ida 
sta 

iny 
Ida 



{$E0) 

$EC 

#$04 
.byte $2C 



Voice 1: JSR instruction 
execute a subroutine pattern 
#1 low address 
#2 high address 



inst_C2_vl : 



Ida 


#$03 


Idx 


$E9 


cic 




adc 


$E0 


sta 


$30, X 


Ida 


#$00 


adc 


$E1 


sta 


$38, X 


dec 


$E9 


Ida 


($E0) ,y 


tax 




my 




ida 


($E0) ,y 


stx 


$E0 


sta 


$E1 


imp 


readNextVl 



bit instruction (hide next instruction) 



read stack index of voive 1 



fix for return 

store return address low 



store return address high 
dec stack index of voice 1 
read next byte: low address 



read next byte: high address 
change address 



Voice 1: SET2CI instruction 

Set 2 values of current instument 

#1 index 

#2 vail 

#3 val2 



inst_DE_vl : 

Ida ($EO),y 

tax 

iny 

Ida ($EO),y 

sta CurInstTableVl+0, X 

iny 

Ida ($EO),y 

sta CurInstTableVl+1, X 

Ida #$04 

jmp adjustPatternVl 



Voice 1: SETNI instruction 

Set first N items of Instrument 

table 

#1 number of items 

#2 low addr . 

#3 high addr. 



inst D2 vl 




Ida 


($E0) ,y 


tax 




my 




Ida 


($E0) ,y 


sta 


copyVl+1 


my 




Ida 


($E0) ,y 


sta 


copyVl+2 


copyVl : 




Ida 


ins02, X 


sta 


InstTableVl+0 


dex 




bpl 


copyVl 


Ida 


#$04 



jmp adjustPatternVl 



read next byte: index 

read next byte: first value 

read next byte: second value 



read next byte: number of items 
read next byte: low addr 
read next byte: high addr 



read istrument byte to copy 
store istrument byte to use 



Voice 1: FOR instruction 

Repeat a block n times 

#1 the number of repeat to performe 



inst CC vl 




Idx 


$E9 


Ida 


#$02 


clc 




adc 


$E0 


sta 


$30, X 


Ida 


#$00 



read stack index of voice 1 



fix for next inst. 

store load addr . into stack 
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adc 


$E1 


sta 


$38, X 


Ida 


($E0) ,y 


sta 


$40, X 


dec 


$E9 


Ida 


#$02 


imp 


adjustPatternVl 



; store high addr . into stack 

; read next byte: number of repeat 

; dec stack index of voice 1 



Voice 1 : SETFI instruction 
Set instrument frequency effect 
by reading from the given table 
#1 low addr 
#1 high addr 



inst_FO_vl : 



Ida 


($E0) ,y 


sta 


ftableVl+1 


my 




Ida 


($E0) ,y 


sta 


ftableVl+2 


Idx 


#$0D 


ftableVl: 




Ida 


insF03, X 


sta 


InstTableVl+0, x 


dex 




bpl 


ftableVl 



jmp adjust3PatternVl 



Voice 1: JMP instruction 
jump to the given location 
#1 low address 
#2 high address 



inst_C4_vl : 



read next byte: low addr 
read next byte: high addr 



read from table 

store istrument freq. values 



Ida 


($E0) ,y 


tax 




my 




Ida 


($E0) ,y 


stx 


$E0 


sta 


$E1 


imp 


readNextVl 



; read next byte of pattern: low addr 



read next byte of pattern: high addr 
change address 



Voice 1 : SET instruction 

set a value in the table at the 

given index 

#1 index 

#2 value 



inst_CA_vl : 
Ida 
tax 

iny 
Ida 
sta 
jmp 



($E0) 



($E0) ,y 

InstTableVl+0,x 

adjustSPatternVl 



; read next byte of pattern 
; read next byte of pattern 



Voice 1: NEXT instruction 
Execute the next cycle of the FOR 



inst_CE_vl : 



Idx 


$E9 


dec 


$41, X 


beq 


endCyclel 


Idy 


$31, X 


Ida 


$39, X 


sty 


$E0 


sta 


$E1 


imp 


readNextVl 


endCyclel : 




mc 


$E9 


tya 




imp 


adjustPatternVl 



read stack index of voice 1 

number of repeat for voice 1 

stop to cycle if 

read low addr into stack of voice 1 

read high addr into stack of voice 1 

change address 



inc stack index of voice 1 



Voice 1: RTS instruction 

return to the stored location 

in the stack 

If there is not an stored address, 

stop music 



inst_CO_vl : 

Idy $E9 
cpy #$07 
beq stop_vl 

inc $E9 



read stack index of voice 1 
inc stack index of voice 1 
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Idx $31, y 

Ida $0039, y 

stx $E0 

sta $E1 

jmp readNextVl 



stop_vl : 
dec 
rts 



playMusicVl 



read low address 
read high address 
change address 



stop music 



Voicel: SETCI istruction 

Set the current instrument value 

at the given index 

#1 index 

#2 value 



inst_D6_vl : 

Ida 
tax 

iny 
Ida 
sta 

jmp 



($E0) ,y 



($E0) ,y 

CurInstTableVl+0, x 
adjust3PatternVl 



read index of current instrument value 



read value to set 

store value in current instrument 



Voice 1: INSTR instruction 
set 5 instrument parameters 
from the given location 
#1 low address 
#2 high address 



inst_D4_vl : 



Ida 


($E0) ,y 


sta 


$EF 


my 




Ida 


($E0) ,y 


sta 


$F0 


Idy 


#$04 


loopD4vl : 




Ida 


($EF),y 


sta 


InstTableVl+24,y 


dey 




bpl 


loopD4vl 



read next byte of pattern: low address 
read next byte of pattern: high address 



read bytes from given address 
copy to instrument voice location 



jmp adjust3PatternVl 



Voice 2: JSR instruction 
execute a subroutine pattern 
#1 low address 
#2 high address 



inst_C2_v2 : 



Ida 


#$03 


Idx 


$EA 


clc 




adc 


$E2 


sta 


$A8,x 


Ida 


#$00 


adc 


$E3 


sta 


$BO,x 


dec 


$EA 


Ida 


($E2),y 


tax 




my 




Ida 


($E2),y 


stx 


$E2 


sta 


$E3 


imp 


readNextV2 



read stack index of voice 2 



fix for return 

store return address low 



store return address high 
dec stack index of voice 2 
read next byte: low address 



read next byte: high address 
change address 



Voice 2: SET2I instruction 

Set 2 values of instruction table 

at the given index 

#1 index 

#2 vail 

#3 val3 



inst_DC_v2 : 
Ida 
tax 
iny 
Ida 
sta 
iny 
Ida 
sta 
Ida 
jmp 



($E2),y 



($E2),y 
InstTableV2+0,x 

($E2),y 

InstTableV2+l,x 
#$04 
adjustPatternV2 



read next byte: index 

read next byte: first value 

read next byte: second value 
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Voice 2: SET2CI instruction 

Set 2 values of current instument 

#1 index 

#2 vail 

#3 val2 



inst_DE_v2 : 

Ida ($E2),y 

tax 

iny 

Ida ($E2),y 

sta CurInstTableV2+0,x 

iny 

Ida ($E2),y 

sta CurInstTableV2+l, X 

Ida #$04 

jmp adjustPatternV2 



Voice 2: SETNI instruction 

Set first N items of Istrument 

table 

#1 number of items 

#2 low addr . 

#3 high addr. 



inst D2 v2 




Ida 


($E2) ,y 


tax 




my 




Ida 


($E2) ,y 


sta 


copyV2+l 


my 




Ida 


($E2) ,y 


sta 


copyV2+2 


copyV2 : 




Ida 


$3517, X 


sta 


InstTableV2+0,x 


dex 




bpl 


copyV2 


Ida 


#$04 



jmp adjustPatternV2 



read next byte: index 

read next byte: first value 

read next byte: second value 



; read next byte: number of items 
; read next byte: low addr 
; read next byte: high addr 



read istrument byte to copy 
store istrument byte to use 



Voice 2: FOR instruction 

Repeat a block n times 

#1 the number of repeat to performs 



inst CC v2 




Idx 


$EA 


Ida 


#$02 


clc 




adc 


$E2 


sta 


$A8,x 


Ida 


#$00 


adc 


$E3 


sta 


$BO,x 


Ida 


($E2) ,y 


sta 


$B8,x 


dec 


$EA 


Ida 


#$02 


imp 


adjustPatternV2 



read stack index of voice 2 



fix for next inst. 

store load addr . into stack 



store high addr. into stack 
read next byte: number of repeat 

dec stack index of voice 2 



Voice 2: SETFI instruction 
Set instrument frequency effect 
by reading from the given table 
#1 low addr 
#1 high addr 



inst_F0_v2 : 



Ida 


($E2),y 


sta 


ftableV2+l 


my 




Ida 


($E2) ,y 


sta 


ftableV2+2 


Idx 


#$0D 


ftableV2: 




Ida 


insF03,x 


sta 


InstTableV2+0,x 


dex 




bpl 


ftableV2 



jmp adjust3PatternV2 



Voice 2: JMP instruction 
jump to the given location 
#1 low address 



read next byte: low addr 
read next byte: high addr 



read from table 

store istrument freq. values 
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#2 high address 



inst_C4_v2 : 

Ida ($E2),y 

tax 

iny 

Ida ($E2),y 

stx $E2 

sta $E3 

jmp readNextV2 



; read next byte of pattern: low addr 



; read next byte of pattern: high addr 
; change address 



Voice 2 : SET instruction 

set a value in the table at the 

given index 

#1 index 

#2 value 



inst_CA_v2 : 
Ida 
tax 
iny 
Ida 
sta 
jmp 



($E2),y 



($E2),y 

InstTableV2+0,x 

adjust3PatternV2 



read next byte of pattern 
read next byte of pattern 



Voice 2: NEXT instruction 
Execute the next cycle of the FOR 



inst_CE_v2 : 



Idx 


$EA 


dec 


$B9,x 


beq 


endCycle2 


Idy 


$A9,x 


Ida 


$Bl,x 


sty 


$E2 


sta 


$E3 


imp 


readNextV2 


endCycle2 : 




mc 


$EA 


tya 




imp 


adjustPatternV2 



read stack index of voice 2 

number of repeat for voice 2 

stop to cycle if 

read low addr into stack of voice 2 

read high addr into stack of voice 2 

change address 



inc stack index of voice 2 



Voice 2: RTS instruction 
return to the stored location 
in the stack 



inst_C0_v2 : 



Idy 


$EA 


cpy 


#$07 


beq 


stop_v2 


mc 


$EA 


Idx 


$A9, Y 


Ida 


$00B1,Y 


stx 


$E2 


sta 


$E3 


imp 


readNextV2 


stop_v2 : 




dec 


playMusicV 


rts 





read stack index of voice 2 



inc stack index of voice 2 
read low address 
read high address 
change address 



stop music 



Voice2 : istruction 

Set the current istrument value 

at the given index 

#1 index 

#2 value 



inst_D6_v2 : 
Ida 
tax 
iny 
Ida 
sta 
jmp 



($E2),y 



($E2),y 

CurInstTableV2+0, X 
adjust3PatternV2 



read index of current instrument value 



read value to set 

store value in current instrument 



Voice 2: INSTR instruction 
set 5 instrument parameters 
from the given location 
#1 low address 
#2 high address 



inst_D4_v2 : 

Ida ($E2) 
sta $EF 



read next byte of pattern: low address 
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my 




Ida 


($E2),y 


sta 


$F0 


Idy 


#$04 


loopD4v2 : 




Ida 


($EF) ,y 


sta 


InstTableV2+24,y 


dey 




bpl 


loopD4v2 


imp 


adjust3PatternV2 



read next byte of pattern: high address 



read bytes from given address 
copy to instrument voice location 



Voice 3: JSRT instruction 
execute a subroutine and set the 
number of halftone to transpose 
#1 halfnote to add (?) 
#2 low address 
#3 high address 



inst_C6_v3 : 

Ida ($E4) 

sta $EE 

iny 

Ida #$04 

.byte $2C 



Voice 3: JSR instruction 
execute a subroutine pattern 
#1 low address 
#2 high address 



inst C2 v3 




Ida 


#$03 


Idx 


$EB 


clc 




ado 


$E4 


sta 


$60, X 


Ida 


#$00 


ado 


$E5 


sta 


$68, X 


dec 


$EB 


Ida 


($E4),y 


tax 




my 




Ida 


($E4) ,y 


stx 


$E4 


sta 


$E5 


3mp 


readNextV3 



; read stack index of voice 3 

; fix for return 

; store return address low 



store return address high 
dec stack index of voice 3 
read next byte: low address 



read next byte: high address 
change address 



Voice 3: EXCT instruction 
Excecute a code gave by paramethers 
#1 low addr . 
#2 high addr. 



inst_D8_v3: 

Ida #$2E 

pha 

Ida #$D2 

pha 

Ida ($E4),y 

sta $EF 

iny 

Ida ($E4),y 

sta $F0 

jmp ($OOEF) 



return high point 
return low point 
read low address 

read high address 

execute code at read address 



Voice 3: SET2I instruction 

Set 2 values of instruction table 

at the given index 

#1 index 

#2 vail 

#3 val3 



inst_DC_v3 : 

Ida ($E4),y 
tax 

iny 

Ida ($E4),y 

sta InstTableV3+0, X 

iny 

Ida ($E4),y 

sta InstTableV3+l, X 

Ida #$04 

jmp adjustPatternV3 



; read next byte: index 

; read next byte: first value 

; read next byte: second value 
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Voice 3: SET2CI instruction 

Set 2 values of current instument 

#1 index 

#2 vail 

#3 val2 



inst_DE_v3 : 

Ida ($E4),y 

tax 

iny 

Ida ($E4),y 

sta CurInstTableV3+0, X 

iny 

Ida ($E4),y 

sta CurInstTableV3+l, X 

Ida #$04 

jmp adjustPatternV3 



Voice 3: FILTA instruction 
Set filter table 
#1 : low addr . 
#2 : high addr . 



inst E2 v3 




Ida 


($E4) ,y 


sta 


copyFil+1 


my 




Ida 


($E4) ,y 


sta 


copyFil+2 


Idx 


#$0F 


copyFil : 




Ida 


fil02,x 


sta 


MainFilterTable+0, x 


dex 




bpl 


copyFil 


imp 


adjust3PatternV3 



read next byte of pattern: index 

read next byte of pattern: first value 

read next byte of pattern: second value 



read next byte of pattern 
read next byte of pattern 



value to copy 

copy in main filter table 



Voice 3: SETNI instruction 

Set first N items of Istrument 

table 

#1 number of items 

#2 low addr. 

#3 high addr. 



inst D2 v3 




Ida 


($E4) ,y 


tax 




my 




Ida 


($E4) ,y 


sta 


copyV3+l 


my 




Ida 


($E4) ,y 


sta 


copyV3+2 


copyV3 : 




Ida 


insFOl, X 


sta 


InstTableV3+0,x 


dex 




bpl 


copyV3 


Ida 


#$04 



jmp adjustPatternV3 



; read next byte: number of items 
; read next byte: low addr 
; read next byte: high addr 



; read istrument byte to copy 
; store istrument byte to use 



Voice 3: FOR instruction 

Repeat a block n times 

#1 the number of repeat to performe 



inst CC v3 




Idx 


$EB 


Ida 


#$02 


clc 




adc 


$E4 


sta 


$60, X 


Ida 


#$00 


adc 


$E5 


sta 


$68, X 


Ida 


($E4) ,y 


sta 


$70, X 


dec 


$EB 


Ida 


#$02 


imp 


adjustPatternV3 



read stack index of voice 3 



fix for next inst. 

store load addr . into stack 



store high addr . into stack 
read next byte: number of repeat 

dec stack index of voice 3 



Voice 3: SETFI instruction 

Set instrument frequency effect 

by reading from the given table 

#1 low addr 
#1 high addr 
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inst_F0_v3 : 



Ida 


($E4) ,y 


sta 


ftableV3+l 


my 




Ida 


($E4) ,y 


sta 


ftableV3+2 


Idx 


#$0D 


ftableV3: 




Ida 


insFOl, X 


sta 


InstTableV3+0,x 


dex 




bpl 


ftableV3 



; read next byte: low addr 
; read next byte: high addr 



; read from table 

; store istrument freq. values 



jmp adjust3PatternV3 



Voice 3: JMP instruction 
jump to the given location 
#1 low address 
#2 high address 



inst_C4_v3 : 



Ida 


($E4),y 


tax 




my 




Ida 


($E4),y 


stx 


$E4 


sta 


$E5 


imp 


readNextV3 


setMax: 




Idy 


#$F4 


sty 


$D417 


stx 


voiceNumber ; 


Idx 


#$1F 


stx 


$D418 


Ida 


#$01 


imp 


adjustPatternV3 



read next byte of pattern: low addr 



read next byte of pattern: high addr 
change address 



max resonance/filter on voice 3 

Filter resonance control/voice input control 

voice number (0,1,2) on where apply filter 

low pass filter 

Select volume and filter mode 



Voice 3: LF3 instruction 

Set low filter on voice 3 with 
max resonance 



inst_E0_v3 : 

Idx #$02 
bne setMax 



Voice 3: SET instruction 

set a value in the table at the 
given index 
#1 index 
#2 value 



inst_CA_v3 : 
Ida 
tax 
iny 
Ida 
sta 
jmp 



{$E4),y 



{$E4),y 

InstTableV3+0,x 
adjust 3PatternV3 



; read next byte of pattern 
; read next byte of pattern 



Voice 3 : NEXT instruction 
Execute the next cycle of the FOR 



inst_CE_v3 : 



Idx 


$EB 


dec 


$71, X 


beq 


endCycle3 


Idy 


$61, X 


Ida 


$69, X 


sty 


$E4 


sta 


$E5 


imp 


readNextV3 


endCycle3 : 




mc 


$EB 


tya 




imp 


adjustPatternV3 



read stack index of voice 3 

number of repeat for voice 3 

stop to cycle if 

read low addr into stack of voice 3 

read high addr into stack of voice 3 

change address 



inc stack index of voice 3 



Voice 3: RTS instruction 
return to the stored location 
in the stack 



inst_C0_v3: 

Idy $EB 
cpy #$07 



read stack index of voice 3 
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beq 


stop v3 


mc 


$EB 


Idx 


$61, y 


Ida 


$0069, y 


stx 


$E4 


sta 


$E5 


imp 


readNextva 


stop_v3 : 




dec 


playMusicV3 


rts 





inc stack index of voice 3 
read low address 
read high address 
change address 



stop music 



Voice 3: INSTR instruction 
set 5 instrument parameters 
from the given location 
#1 low address 
#2 high address 



inst D4 v3 




Ida 


($E4) ,y 


sta 


$EF 


my 




Ida 


($E4) ,y 


sta 


$F0 


Idy 


#$04 


loopD4v3 : 




Ida 


($EF) ,y 


sta 


InstTableV3+24,y 


dey 




bpl 


loopD4v3 


jmp 


adjust 3PatternV3 



read next byte of pattern: low address 
read next byte of pattern: high address 



read bytes from given address 
copy to instrument voice location 



Make the dinamic filter effect 
If the filter flag has bit 1=1, 
during initial delay it is 
performed a cycle4 adding 



makeFilterEf f : 

Ida CurFilterTable+13 
exitMFE 

ActFilterTable+0 
ActFilterTable+1 



beq 

Idx 
Idy 
clc 
Ida 
beq 
dec 
Ida 
and 
bne 
exitMFE: 
rts 



CurFilterTable+12 

filterAddl 

CurFilterTable+12 

CurFilterTable+13 

#$02 

makeFilterAdd4 



read filter flag effect 

no filter if 

read actual filter low value (8 bit) 

read actual filter high value (3 bit) 

read initial filter delay 

dec filter delay 

read filter flag effect 



Filter add cycle 1 



f ilterAdd: 

clc 
filterAddl : 

Ida ActFilterTable+2 

beq filterAdd2 

dec ActFilterTable+2 

txa 

ado CurFilterTable+0 

tax 

tya 

ado CurFilterTable+1 

jmp changeFilter 



actual filter cycle 1 

j ump if 

dec actual filter cycle 4 

add filter low value 1 
add filter high value 1 



Filter add cycle 2 



filterAdd2: 

Ida ActFilterTable+3 

beq filterAdd3 

dec ActFilterTable+3 

txa 

ado CurFilterTable+2 

tax 

tya 

ado CurFilterTable+3 

jmp changeFilter 



actual filter cycle 2 

j ump if 

dec actual filter cycle 2 

add filter low value 2 



add filter high value 2 



Filter add cycle 3 
filterAdd3: 
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Ida 
beq 
dec 
txa 
adc 
tax 
tya 
adc 
jmp 



ActFilterTable+4 

filterAdd4 

ActFilterTable+4 

CurFilterTable+4 



CurFilterTable+5 
changeFilter 



actual filter cycle 3 

jump if zero 

dec actual filter cycle 3 

add filter low value 3 



add filter high value 3 



filter add cycle 4 



f ilterAdd4 : 

Ida ActFilterTable+5 

beq resetFilter 

dec ActFilterTable+5 

makeFilterAdd4 : 
txa 

adc CurFilterTable+6 
tax 
tya 
adc CurFilterTable+7 

changeFilter : 

tay 
changeRFilter : 

stx ActFilterTable+0 

sty ActFilterTable+1 
changeNoSFilter : 

txa 

and #$07 

sta $D415 

tya 

stx tmpCutF 

Isr 

ror tmpCutF 

Isr 

ror tmpCutF 

Isr 

Ida tmpCutF 

ror 

sta $D416 

rts 



actual filter cycle 4 

jump if zero 

dec actual filter cycle 4 



add filter low value 4 
add filter high value 4 



store actual filter low value (8 bit) 
store actual filter high value (3 bit) 
change and not store 



Filter cut frequency: lo byte (bit 2-0) 
shift high bits into filter register high 



Filter cut frequency: hi byte 



Reset Filter 

Flag meanings : 

xyyy yyyyz 

x^l -> reload the filter cycle with filter value of istrument table again 

z^l -> reload the filter cycle but use the actual filter value 

y^l -> continue with actual filter^, no more cycle 



resetFilter : 

Ida CurFilterTable+13 
and #$81 

beq changeRFilter 
bpl useActualF 

jsr reloadFilter Cycle 
jmp filter Add 

useActualF : 

jsr reloadFCycle 
jmp filter Add 



read filter effect flag 



copy main filter table to current 
one and reload the cycle 



copyMainCur rent Filter : 

Idx #$07 
loopCopy : 

Ida 

sta 

Ida 

sta 

dex 

bpl 

jsr 

jmp 



MainFilterTable+0, x 
CurFilterTable+0, x 
MainFilterTable+8, x 
CurFilterTable+8, x 

loopCopy 

reloadFilter Cycle 
changeNoSFilter 



copy main filter table part 1 
to current filter table part 1 
copy main filter table part 2 
to current filter table part 2 



Execute the pattern of note 
voice 1 



executePatternVl : 

Ida playMusicVl 



play music flag voice 1 
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beq no_execvl 
dec $E6 
beq readNextVl 
no_execvl : 
rts 



exit if no music 

dec actual duration of note voice 1 



fixHighVl: 

inc $E1 

bne readNextVl 

adjustSPatternVl : 
Ida #$03 

adjustPatternVl ; 
clc 

adc $E0 
sta $E0 
bcs fixHighVl 



adjust the pattern index with 3 
adjust the pattern index with A reg. 



read next byte from pattern of voice 1 



readNextVl : 

Idy #$00 

Ida ($EO),y 

cmp #$C0 

bcc isNoteVl 
iny 

adc #$3F 

sta addressVl+1 
addressVl : 

jmp {InstrVoicel ) 

jmpSetDurationVl : 

jmp setDurationVl 

isNoteVl : 

sta $FF 

cmp #$60 

bcc alreadyReducedVl 

sbc #$60 

alreadyReducedVl : 

cmp #$5F 

beq JmpSetDurationVl 

adc $EC 
tax 

Ida #$08 

sta $D404 

Ida voiceNumber 

bne continuelnitVl 

stx $EF 

jsr copyMainCurrentFilter 

Idx $EF 

continuelnitVl : 

Idy lowFreq, x 

Ida highFreq, x 

sta CurInstTableVl+24 

sty CurInstTableVl+25 

sta $D400 

sty $D401 

Idx InstTableVl+22 

Idy InstTableVl+23 

stx $D402 

sty $D403 

Ida InstTableVl+25 

sta $D405 

Ida InstTableVl+26 

sta $D406 



Ida 


InstTableVl+24 


sta 


CurInstTableVl+26 


and 


#$F7 


sta 


$D404 


Ida 


InstTableVl+17 


sta 


CurInstTableVl+17 


beq 


freqInitVl 


stx 


CurInstTableVl+22 


sty 


CurInstTableVl+23 


stx 


$F1 


sty 


$F2 


Ida 


InstTableVl+21 


sta 


CurInstTableVl+21 



read next byte of pattern 

is an instruction? 



calcolate right offset to the inst . table 
execute instruction read from the pattern 



store the read byte: note to play 
<60 means use custom durations 

reduce to . . 5F 



5Fh means rest note 
haftone to transpose 



Voice 1: Control registers 

voice number (0,1,2) on where apply filter 

skip if not 



read freq high from table 
read freq low from table 
store current freq low voice 1 
store current freq high voice 1 
Voice 1: Frequency control (lo byte) 
Voice 1: Frequency control (hi byte) 

read wave low voice 1 

read wave high voice 1 

Voice 1: Wave form pulsation amplitude (lo byte) 

Voice 1: Wave form pulsation amplitude (hi byte) 

read AD voice 1 

Generator 1 : Attack/Decay 

read SR voice 1 

Generator 1 : Sustain/Release 

read control registers voice 1 
store current control registers 
set test bit to 
Voice 1: Control registers 

read wave effect flag voice 1 

store current wave effect flag voice 1 

skip other wave init if 

store current wave low voice 1 
store current wave high voice 1 
wave low voice 1 
wave high voice 1 

read wave high add 2 voice 1 

store current wave high add 2 voice 1 
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Ida 
sta 



InstTableVl+20 
CurInstTableVl+2 



read wave low add 2 voice 1 

store current wave low add 2 voice 1 



Ida InstTableVl+19 
sta CurInstTableVl+19 



Ida InstTableVl+18 
sta CurInstTableVl+18 



read wave high add 1 voice 1 
store current high add 1 voice 1 

read wave low add 1 voice 1 

store current wave low add 1 voice 1 



Ida InstTableVl+16 

sta CurInstTableVl+16 

Idx InstTableVl+14 

Idy InstTableVl+15 

stx CurInstTableVl+14 

stx CurInstTableVl+33 

sty CurInstTableVl+15 

sty CurInstTableVl+34 

f reqInitVl : 

Ida InstTableVl+13 

sta CurInstTableVl+13 

beq skipFreqSetVl 

Idx InstTableVl+12 

stx CurInstTableVl+12 

Idx InstTableVl+11 

stx CurInstTableVl+11 

Idx InstTableVl+10 

stx CurInstTableVl+10 

Idx InstTableVl+9 

stx CurInstTableVl+9 

Idx InstTableVl+8 

stx CurInstTableVl+8 

Idx InstTableVl+7 

stx CurInstTableVl+7 

Idx InstTableVl+6 

stx CurInstTableVl+6 

Idx InstTableVl+5 

stx CurInstTableVl+5 

Idx InstTableVl+4 

stx CurInstTableVl+4 

Idx InstTableVl+3 

stx CurInstTableVl+3 

Idx InstTableVl+2 

stx CurInstTableVl+2 

Idx InstTableVl+1 

stx CurInstTableVl+1 

Idx InstTableVl+0 

stx CurInstTableVl+0 

and #$08 

beq reloadFCVl 

Ida $FF 

cmp #$60 

bcc alreadyReduced2Vl 

sbc #$5F 

alreadyReduced2Vl : 

adc $EC 

sta CurInstTableVl+10 

bne skipReloadFCVl 

reloadFCVl: 

jsr reloadFreqCycleVl 

skipReloadFCVl ; 

skipFreqSetVl : 

Idx InstTableVl+27 

Idy InstTableVl+28 

stx CurInstTableVl+27 

sty CurInstTableVl+28 

setDurationVl : 

Idy #$01 

Ida ($EO),y 

Idx $FF 



read wave delay initial voice 1 

store current wave initial delay voice 1 

read wave cycle 1 voice 1 

read wave cycle 2 voice 1 

store current (to reload) wave cycle 1 voice 1 

store current wave cycle 1 voice 1 

store current (to reload) wave cycle 2 voice 1 

store current wave cycle 2 voice 1 



read freq. flag effect voice 1 

store current freq. flag effect voice 1 



read freq delay initial voice 1 

store current freq. initial delay voice 1 

read freq cycle 4 voice 1 

store current (to reload) freq cycle 4 voice 1 

read freq cycle 3 voice 1 

store current (to reload) freq cycle 3 voice 1 

read freq cycle 2 voice 1 

store current (to reload) freq cycle 2 voice 1 

read freq cycle 1 voice 1 

store current (to reload) freq cycle 1 voice 1 

read freq high add 4 voice 1 

store current freq high add 4 voice 1 

read freq low add 4 voice 1 

store current freq low add 4 voice 1 

read freq high add 3 voice 1 

store current freq high add 3 voice 1 

read freq low add 3 voice 1 

store current freq low add 3 voice 1 

read freq high add 2 voice 1 

store current freq high add 2 voice 1 

read freq low add 2 voice 1 

store current freq low add 2 voice 1 

read freq high add 1 voice 1 

store current freq high add 1 voice 1 

read freq low add 1 voice 1 

store current freq low add 1 voice 1 



read store note to play 



half tone to transpose 

store current (to reload) freq cycle 3 voice 1 



read next byte of pattern: duration index voice 1 
read stored note to play 
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cpx #$60 

bcs skipDurTableVl 

tax 

Ida durationTable-1, X 

SkipDurTableVl : 

sta $E6 

Ida #$02 
clc 

adc $E0 

sta $E0 

bcs fixHigh2Vl 
rts 



<60h means custom durations 



read duration from table 



store duration of note voice 1 



update pointer for next note 



fixHigh2Vl: 

inc $E1 
rts 



Execute the pattern of note 
voice 2 



executePatternV2 : 

Ida playMusicV2 

beq no_execv2 

dec $E7 

beq readNextV2 

no_execv2 
rts 



play music flag voice 2 

exit if no music 

dec actual note duration voice 2 



fixHighV2: 

inc $E3 

bne readNextV2 

adjust3PatternV2 : 
Ida #$03 

adjustPatternV2 : 
clc 

adc $E2 
sta $E2 
bcs fixHighV2 



adjust the pattern index with 3 
adjust the pattern index with A reg. 



read next byte from pattern of voice 2 



readNextV2 : 

Idy 
Ida 
cmp 
bcc 
iny 
adc 



#$00 
($E2),y 
#$C0 
isNoteV2 

#$71 



sta addressV2+l 
addressV2 : 



imp 



{InstrVoice2 ) 



jmpSetDurationV2 : 

jmp setDurationV2 

isNoteV2 : 

sta $FF 

cmp #$60 

bcc alreadyReducedV2 

sbc #$60 

alreadyReducedV2 : 
cmp #$5F 

beq jmpSetDurationV2 
adc $ED 



tax 




Ida 


#$08 


sta 


$D40B 


Ida 


voiceNumber 


cmp 


#$01 


bne 


continueInitV2 


stx 


$EF 


]sr 


copyMainCurrentFilter 


Idx 


$EF 



read next byte of pattern 

is an instruction? 



; calcolate right offset to the inst . table 
; execute instruction read from the pattern 



store the read byte: note to play 
<60 means use custom durations 

reduce to . . 5F 



5Fh means rest note 
haftone to transpose 



Voice 2: Control registers 

voice number (0,1,2) on where apply filter 

skip if not 1 



continueInitV2 : 

Idy lowFreq, x 

Ida highPreq, X 

sta CurInstTableV2+2 4 

sty CurInstTableV2+2 5 

sta $D407 

sty $D408 

Idx InstTableV2+2 2 



read freq high from table 
read freq low from table 
store current freq low voice 2 
store current freq high voice 2 
Voice 2: Frequency control (lo byte) 
Voice 2: Frequency control (hi byte) 

read wave low voice 2 
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Idy 
stx 
sty 



InstTableV2+23 

$D409 

$D40A 



read wave high voice 2 

Voice 2: Wave form pulsation amplitude (lo byte) 

Voice 2 : Wave form pulsation amplitude (hi byte) 



Ida 
sta 
Ida 
sta 



InstTableV2+25 
$D40C 

InstTableV2+26 
$D40D 



read AD voice 2 

Generator 2: Attack/Decay 

read SR voice 1 

Generator 2 : Sustain/Release 



Ida InstTableV2+24 

sta CurInstTableV2+26 

and #$F7 

sta $D40B 



read control registers voice 2 

store current control registers voice 2 

set test bit to 

Voice 2 : Control registers 



Ida InstTableV2+17 
sta CurInstTableV2+17 
beq freqInitV2 



read wave effect flag voice 2 

store current wave effect flag voice 2 

skip other wave init if 



stx CurInstTableV2+22 

sty CurInstTableV2+23 

stx $F3 

sty $F4 



store current wave low voice 2 
store current wave high voice 2 
wave low voice 2 
wave high voice 2 



Ida 
sta 



InstTableV2+21 
CurInstTableV2+21 



read wave high add 2 voice 2 

store current wave high add 2 voice 2 



Idx 
stx 



InstTableV2+20 
CurInstTableV2+2 



read wave low add 2 voice 2 

store current wave low add 2 voice 2 



Ida 
sta 



InstTableV2+19 
CurInstTableV2+19 



read wave high add 1 voice 2 
store current high add 1 voice 2 



Ida InstTableV2+18 
sta CurInstTableV2+18 



read wave low add 1 voice 2 

store current wave low add 1 voice 2 



Ida InstTableV2+16 
sta CurInstTableV2+16 



read wave delay initial voice 2 

store current wave initial delay voice 2 



Idx InstTableV2+14 

Idy InstTableV2+15 

stx CurInstTableV2+14 

stx CurInstTableV2+33 

sty CurInstTableV2+15 

sty CurInstTableV2+34 



read wave cycle 1 voice 2 

read wave cycle 2 voice 2 

store current (to reload) wave cycle 1 voice 2 

store current wave cycle 1 voice 2 

store current (to reload) wave cycle 2 voice 2 

store current wave cycle 1 voice 2 



f reqInitV2 : 

Ida InstTableV2+13 
sta CurInstTableV2+13 
beq skipFreqSetV2 



read freq. flag effect voice 2 

store current freq. flag effect voice 2 



Idx 
stx 



InstTableV2+12 
CurInstTableV2+12 



read freq delay initial voice 2 

store current freq. initial delay voice 2 



Idx 
stx 



InstTableV2+ll 
CurInstTableV2+ll 



read freq cycle 4 voice 2 

store current (to reload) freq cycle 4 voice 2 



Idx 
stx 



InstTableV2+10 
CurInstTableV2+10 



read freq cycle 3 voice 2 

store current (to reload) freq cycle 3 voice 2 



Idx 
stx 



InstTableV2+9 
CurInstTableV2+9 



read freq cycle 2 voice 2 

store current (to reload) freq cycle 2 voice 2 



Idx 
stx 



InstTableV2+8 
CurInstTableV2+8 



read freq cycle 1 voice 2 

store current (to reload) freq cycle 1 voice 2 



Idx 
stx 



InstTableV2+7 
CurInstTableV2+7 



read freq high add 4 voice 2 

store current freq high add 4 voice 2 



Idx 
stx 



InstTableV2+6 
CurInstTableV2+6 



read freq low add 4 voice 2 

store current freq low add 4 voice 2 



Idx 
stx 



InstTableV2+5 
CurInstTableV2+5 



read freq high add 3 voice 2 

store current freq high add 3 voice 2 



Idx 
stx 



InstTableV2+4 
CurInstTableV2+4 



read freq low add 3 voice 2 

store current freq low add 3 voice 2 



Idx 
stx 



InstTableV2+3 
CurInstTableV2+3 



read freq high add 2 voice 2 

store current freq high add 2 voice 2 



Idx 
stx 



InstTableV2+2 
CurInstTableV2+2 



read freq low add 2 voice 2 

store current freq low add 2 voice 2 



Idx 
stx 



InstTableV2+l 
Cur Inst TableV2+l 



read freq high add 1 voice 2 

store current freq high add 1 voice 2 



Idx InstTableV2+0 

stx CurInstTableV2+0 

and #$08 

beq reloadFCV2 



read freq low add 1 voice 2 

store current freq low add 1 voice 2 
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Ida $FF ; read store note to play 

cmp #$60 

bcc alreadyReduced2V2 

sbc #$5F 

alreadyReduced2V2 : 
adc $ED 

sta CurInstTableV2+10 ; store current (to reload) freq cycle 3 voice 2 
bne skipReloadFCV2 

reloadFCV2: 

jsr reloadFreqCycleV2 

skipFreqSetV2 : 
skipReloadFCV2 : 

Idx InstTableV2+27 

Idy InstTableV2+28 

stx CurInstTableV2+27 

sty CurInstTableV2+28 

setDurationV2 : 
Idy #$01 

Ida {$E2),y ; read next byte of pattern: duration index voice 2 

Idx $FF ; read stored note to play 

cpx #$60 ; <60h means custom durations 

bcs skipDurTableV2 

tax 

Ida durationTable-1, X ; read duration from table 

skipDurTableV2 : 

sta $E7 ; store actual note duration voice 2 

Ida #$02 

clc 

adc $E2 

sta $E2 ; update pointer for next note 

bcs fixHigh2V2 

rts 

fixHigh2V2: 

inc $E3 
rts 



Execute the pattern of note 
voice 3 



executePatternV3 : 

Ida playMusicV3 ; play music flag voice 3 

beq no_execv3 ; exit if no music 

dec $E8 ; dec actual note duration voice 3 

beq readNextV3 
no_execv3 

rts 

fixHighV3: 

inc $E5 

bne readNextV3 

adjust3PatternV3 : ; adjust the pattern index with 3 

Ida #$03 

adjustPatternV3 : ; adjust the pattern index with A reg. 

clc 

adc $E4 
sta $E4 
bcs fixHighV3 



read next byte from pattern of voice 3 



readNextV3 : 

Idy #$00 

Ida ($E4),y ; read next byte of pattern 

cmp #$C0 ; is an instruction 

bcc isNoteV3 

iny 

adc #$A3 ; calcolate right offset to the inst. table 

sta addressV3+l 
addressV3 : 

jmp {InstrVoice3) ; execute instruction read from the pattern 

jmpSetDurationV3 : 

jmp setDurationV3 

isNoteV3: 

sta $FF ; store the read byte: note to play 



65 



cmp #$60 

bcc alreadyReducedV3 

sbc #$60 

alreadyReducedV3 : 

cmp #$5F 

beq jmpSetDurationVS 

cmp #$50 

beq noTransposeV3 



adc $EE 
noTransposeV3 : 



tax 




Ida 


#$08 


sta 


$D412 


Ida 


voiceNumber 


cmp 


#$02 


bne 


continueInitV3 



stx $EF 

jsr copyMainCurrentFilter 

Idx $EF 



<60 means use custom durations 
reduce to . . 5F 

5Fh means rest note 



haftone to transpose 



Voice 3: Control registers 

voice number (0,1,2) on where apply filter 

skip if not 2 



continueInitV3 : 



Idy lowFreq, x 

Ida highFreq, x 

sta CurInstTableV3+24 

sty CurInstTableV3+25 

sta $D40E 

sty $D40F 

Idx InstTableV3+22 

Idy InstTableV3+23 

stx $D410 

sty $D411 

Ida InstTableV3+25 

sta $D413 

Ida InstTableV3+26 

sta $D414 



Ida 


InstTableV3+24 


sta 


CurInstTableV3+26 


and 


#$F7 


sta 


$D412 


Ida 


InstTableV3+17 


sta 


CurInstTableV3+17 


beq 


freqInitV3 


stx 


CurInstTableV3+22 


sty 


CurInstTableV3+23 


stx 


$F5 


sty 


$F6 


Ida 


InstTableV3+21 


sta 


CurInstTableV3+21 


Ida 


InstTableV3+20 


sta 


CurInstTableV3+20 


Ida 


InstTableV3+19 


sta 


CurInstTableV3+19 


Ida 


InstTableV3+18 


sta 


CurInstTableV3+18 


Ida 


InstTableV3+16 


sta 


CurInstTableV3+16 


Idx 


InstTableV3+14 


Idy 


InstTableV3+15 


stx 


CurInstTableV3+14 


stx 


CurInstTableV3+33 


sty 


CurInstTableV3+15 


sty 


CurInstTableV3+34 



f reqInitV3 : 

Ida InstTableV3+13 

sta CurInstTableV3+13 

beq skipFreqSetV3 

Idx InstTableV3+12 

stx CurInstTableV3+12 

Idx InstTableV3+ll 

stx CurInstTableV3+ll 



read freq high from table 
read freq low from table 
store current freq low voice 3 
store current freq high voice 3 
Voice 3 : Frequency control (lo byte) 
Voice 3: Frequency control (hi byte) 

read wave low voice 3 

read wave high voice 3 

Voice 3: Wave form pulsation amplitude (lo byte) 

Voice 3: Wave form pulsation amplitude (hi byte) 

read AD voice 3 

Generator 3: Attack/Decay 

read SR voice 3 

Generator 3: Sustain/Release 

read control registers voice 3 
store current control register 
set test bit to 
Voice 3: Control registers 

read wave effect flag voice 3 

store current wave effect flag voice 3 

skip other wave init if 

store current wave low voice 3 
store current wave high voice 3 
wave low voice 3 
wave high voice 3 

read wave high add 2 voice 3 

store current wave high add 2 voice 3 

read wave low add 2 voice 3 

store current wave low add 2 voice 3 

read wave high add 1 voice 3 
store current high add 1 voice 3 

read wave low add 1 voice 3 

store current wave low add 1 voice 3 

read wave delay initial voice 3 

store current wave initial delay voice 3 

read wave cycle 1 voice 3 

read wave cycle 2 voice 3 

store current (to reload) wave cycle 1 voice 3 

store current wave cycle 1 voice 3 

store current (to reload) wave cycle 2 voice 3 

store current wave cycle 1 voice 3 



read freq. flag effect voice 3 

store current freq. flag effect voice 3 



read freq delay initial voice 3 

store current freq. initial delay voice 3 

read freq cycle 4 voice 3 

store current (to reload) freq cycle 4 voice 3 
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Idx InstTableV3+10 
stx CurInstTableV3+10 



Idx InstTableV3+9 
stx CurInstTableV3+9 



Idx InstTableV3+8 
stx CurInstTableV3+8 



Idx 
stx 



InstTableV3+7 
CurInstTableV3+7 



Idx InstTableV3+6 

stx CurInstTableV3+6 

Idx InstTableV3+5 

stx CurInstTableV3+5 

Idx InstTableV3+4 

stx CurInstTableV3+4 

Idx InstTableV3+3 

stx CurInstTableV3+3 

Idx InstTableV3+2 

stx CurInstTableV3+2 

Idx InstTableV3+l 

stx CurInstTableV3+l 

Idx InstTableV3+0 

stx CurInstTableV3+0 

and #$08 

beq reloadFCV3 



; read freq cycle 3 voice 3 

; store current (to reload) freq cycle 3 voice 3 

; read freq cycle 2 voice 3 

; store current (to reload) freq cycle 2 voice 3 

; read freq cycle 1 voice 3 

; store current (to reload) freq cycle 1 voice 3 

; read freq high add 4 voice 3 

; store current freq high add 4 voice 3 

; read freq low add 4 voice 3 

; store current freq low add 4 voice 3 

; read freq high add 3 voice 3 

; store current freq high add 3 voice 3 

; read freq low add 3 voice 3 

; store current freq low add 3 voice 3 

; read freq high add 2 voice 3 

; store current freq high add 2 voice 3 

; read freq low add 2 voice 3 

; store current freq low add 2 voice 3 

; read freq high add 1 voice 3 

; store current freq high add 1 voice 3 

; read freq low add 1 voice 3 

; store current freq low add 1 voice 3 



Ida $FF 

cmp #$60 

bcc alreadyReduced2V3 

sbc #$5F 



; read store note to play 



alreadyReduced2V3 : 
adc $EE 

sta CurInstTableV3+10 
bne skipReloadFCV3 

reloadFCV3: 

jsr reloadFreqCycleV3 

skipFreqSetV3 : 

skipReloadFCV3 : 

Idx InstTableV3+27 
Idy InstTableV3+28 
stx CurInstTableV3+27 
sty CurInstTableV3+28 

setDurationV3 : 
Idy #$01 
Ida ($E4),y 
Idx $FF 
cpx #$60 
bcs skipDurTableV3 



store current (to reload) freq cycle 3 voice 3 



read next byte of pattern: duration index voice 3 
read stored note to play 
<60h means custom durations 



tax 

Ida durationTable-1, X 



skipDurTableV3: 
sta $E8 



read duration from table 

store actual note duration voice 3 



Ida #$02 

clc 

adc $E4 

sta $E4 

bcs fixHigh2V3 

rts 



update pointer for next note 



fixHigh2V3: 

inc $E5 

exitRTS : 
rts 



Make the timbre of voice 1 



makeTimbreVl : 

Idx CurInstTableVl+28 
beq exitRTS 

Ida CurInstTableVl+26 
and #$08 



exit if 

read current Control registers voice 1 
test bit 
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beq noTestBl 



Ida 
cmp 
bcs 



Ida 
sta 



$E6 

CurInstTableVl+2 7 
testlfWaveEffVl 

#$00 
CurInstTableVl+2 7 



Ida CurInstTableVl+26 

and #$F6 

sta CurInstTableVl+26 

bne outControll 



read duration of note voice 1 



read current control registers voice 1 

gate and test bit to 

store current control registers voice 1 



noTestBl : 

Ida CurInstTableVl+27 

bne r3066 

Idy CurInstTableVl+28 

iny 

beq testlfWaveEffVl 

dec CurInstTableVl+28 

bne testlfWaveEffVl 

; hard restart 

Idx #$06 
loopSidl : 

sta $D400,x 

dex 

bpl loopSidl 

testFilterVl : 

cmp voiceNumber 

bne exitRTS 



Voice 1: Frequency control (lo byte) 



voice number (0,1,2) on where apply filter 
exit if not equal 



mx 
stx 
rts 



CurFilterTable+13 



filter effect flag 



r3066: 



r3069: 



Idy CurInstTableVl+27 

iny 

beq testlfWaveEffVl 

dec CurInstTableVl+27 

bne testlfWaveEffVl 

Ida CurInstTableVl+26 

and #$F6 



outControll : 

sta $D404 

testlfWaveEffVl: 

Ida CurInstTableVl+17 
beq testlfFreqEffVl 

Ida CurInstTableVl+16 

beq waveAddlVl 

dec CurInstTableVl+16 

jmp testlfFreqEffVl 



read current control registers voice 1 
gate and test bit to 



Voice 1 : Control registers 

read current wave effect flag voice 1 
no wave if 

read current wave initial delay voice 1 

dec delay voice 1 



wave add cycle 1 voice 1 



waveAddlVl : 
clc 

Idx $F1 
Idy $F2 

Ida CurInstTableVl+33 
beq waveAdd2Vl 
dec CurInstTableVl+33 
txa 

adc CurInstTableVl+18 
tax 
tya 
adc CurInstTableVl+19 



tay 
jmp 



wave low vl voice 1 

wave high vl voice 1 

wave cycle 1 voice 1 

goto cycle 2 if 

decrement wave cycle 1 voice 1 

add current low wave value for cycle 1 voice 1 



add current high wave value for cycle 1 voice 1 



changeWavel 



wave add cycle 2 voice 1 



waveAdd2Vl : 

Ida CurInstTableVl+34 

beq resetWavel 

dec CurInstTableVl+34 

txa 

adc CurInstTableVl+20 

tax 



wave cycle 2 voice 1 

decrement wave cycle 2 voice 1 

add current low value for cycle 2 voice 1 
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tya 

adc Cur Inst TableVl+21 

tay 

jmp changeWavel 



add current high value for cycle 2 voice 1 



Reset Wave voice 1 

Flag meanings: 

xyyy yyyyz 

x^l -> reload the wave cycle with wave value of istrument table again 

z^l -> reload the wave cycle but use the actual wave value 

y^l -> continue with actual wave^. no more cycle 



resetWavel : 

Ida CurInstTableVl+17 

and #$81 

beq changeWavel 

bpl useCycleActualVl 

jsr reloadWaveCycleVl 
jmp waveAddlVl 

useCycleActualVl : 

jsr reloadWCycleVl 
jmp waveAddlVl 



read current wave effect flag voice 1 
go to continue with actual wave 

reload wave cycle using wave in current ins. table 
reload wave cycle using wave in register 



change wave setting of voice 1 



changeWavel : 

stx $F1 
sty $F2 
stx $D402 
sty $D403 

testlfFreqEffVl: 

Ida CurInstTableVl+13 
beq exitCWl 



Idx 


$F7 ; 


Idy 


$F8 ; 


clc 




Ida 


CurInstTableVl+12 ; 


beq 


freqAddlVl 


dec 


CurInstTableVl+12 ; 


Ida 


CurInstTableVl+13 ; 


and 


#$02 


bne 


addF4Vl 


exitCWl : 




rts 




; freq add 


cyclel voice 1 



freqAddlVl: 

clc 
freqAddlVl_: 

Ida CurInstTableVl+29 

beq freqAdd2Vl 

dec CurInstTableVl+29 

txa 

adc CurInstTableVl+0 

tax 

tya 

adc CurInstTableVl+1 

jmp change_freql 



wave low vl 

wave high vl 

Voice 1: Wave form pulsation amplitude (lo byte) 

Voice 1 : Wave form pulsation amplitude (hi byte) 



read current freq. flag effect voice 1 
exit if zero 

low of freq. 
high of freq. 

read current freq. initial delay voice 1 

dec current freq. initial delay voice 1 
read current freq. flag effect voice 1 



read current freq cycle 1 voice 1 

dec current freq cycle 1 voice 1 

add current low freq value for cycle 1 voice 1 

add current high freq value for cycle 1 voice 1 



freq add cycle2 voice 1 



f reqAdd2Vl : 

Ida CurInstTableVl+30 

beq freqAdd3Vl 

dec CurInstTableVl+30 

txa 

adc CurInstTableVl+2 

tax 

tya 

adc CurInstTableVl+3 

jmp change_freql 



read current freq cycle 2 voice 1 
dec current freq cycle 2 voice 1 
add current freq low add 2 voice 1 

add current freq high add 2 voice 1 



freq add cycle3 voice 1 



f reqAdd3Vl : 

Ida CurInstTableVl+31 

beq freqAdd4Vl 

dec CurInstTableVl+31 

txa 



read current freq cycle 3 voice 1 
dec current freq cycle 3 voice 1 
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adc CurInstTableVl+4 ; add current freq low add 3 voice 1 

tax 

tya 

adc CurInstTableVl+5 ; add current freq high add 3 voice 1 

jmp change_freql 



freq add cycle4 voice 1 



f reqAdd4Vl : 

Ida CurInstTableVl+32 ; read current freq cycle 4 voice 1 

beq resetFreqVl 

dec CurInstTableVl+32 ; dec current freq cycle 4 voice 1 

addF4Vl: 
txa 

adc CurInstTableVl+6 ; add current freq low add 4 voice 1 
tax 
tya 
adc CurInstTableVl+7 ; add current freq high add 4 voice 1 



change frequecy: X^lo, A^hi voice 1 



change_f reql : 
tay 

useCurrFl : ; use current frequency 

stx $D400 ; Voice 1: Frequency control (lo byte) 

sty $D401 ; Voice 1: Frequency control (hi byte) 

stx $F7 

sty $F8 

exitUseCurrFl : 
rts 



Reset Frequency Voice 1 

Flag meandings : 

xyyy yyyyz 

x^l -> reload the freq. cycle with freq. value of istrument table again 

z^l -> reload the freq. cycle but use the actual freq value 

y^l -> continue with actual freq., no more cycle 



resetFreqVl : 

Ida CurInstTableVl+13 ; read current freq. flag effect voice 1 

and #$81 

beq useCurrFl ; go to continue with actual freq. 

bpl useCycleFActualVl 

jsr reloadFreqCycleVl 
jmp freqAddlVl 

useCycleFActualVl : 

jsr reloadFCycleVl 
jmp freqAddlVl 



Make the timbre of voice 2 



makeTimbreV2 : 

Idx CurInstTableV2+2 8 

beq exitUseCurrFl 

Ida CurInstTableV2+26 ; read current control registers voice 2 

and #$08 

beq noTestB2 

Ida $E7 ; read actual note duration voice 2 

cmp CurInstTableV2+2 7 

bcs testIfWaveEffV2 

Ida #$00 

St a CurInstTableV2+2 7 

Ida CurInstTableV2+26 ; read current control registers voice 2 

and #$F6 

sta CurInstTableV2+26 ; store current control registers voice 2 

bne outControl2 

noTestB2 : 

Ida CurInstTableV2+27 

bne r319F 

Idy CurInstTableV2+2 8 

iny 

beq testIfWaveEffV2 

dec CurInstTableV2+28 

bne testIfWaveEffV2 
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; hard restart 

Idx #$06 
loopSid2 : 

sta $D407,x 

dex 

bpl loopSid2 

testFilterV2 : 

Ida #$01 

jmp testFilterVl 

r319F: 

Idy CurInstTableV2+2 7 

iny 

beq testIfWaveEffV2 

dec CurInstTableV2+2 7 

bne testIfWaveEffV2 

Ida CurInstTableV2+2 6 

and #$F6 

outControl2 : 

sta $D40B 

testIfWaveEffV2: 

Ida CurInstTableV2+17 

beq testIfFreqEffV2 

Ida CurInstTableV2+16 

beq waveAddlV2 

dec CurInstTableV2+16 

jmp testlfFreqEf fV2 



wave add cycle 1 voice 2 



waveAddlV2 : 
clc 

Idx $F3 
Idy $F4 

Ida CurInstTableV2+33 
beq waveAdd2V2 
dec CurInstTableV2+33 
txa 

adc CurInstTableV2+18 
tax 
tya 

adc CurInstTableV2+19 
tay 
jmp changeWave2 



Voice 2 : Frequency control (lo byte) 



read current control registers voice 2 
gate and test bit to 



Voice 2: Control registers 

read current wave effect flag voice 2 
no wave if 

read current wave initial delay voice 2 

dec current wave initial delay voice 2 



wave low vl voice 2 

wave high vl voice 2 

wave cycle 1 voice 2 

goto cycle 2 if 

decrement wave cycle 1 voice 2 

add current low wave value for cycle 1 voice 2 



add current high wave value for cycle 1 voice 2 



wave add cycle 2 voice 2 



waveAdd2V2 : 

Ida CurInstTableV2+34 

beq resetWave2 

dec CurInstTableV2+34 

txa 

adc Cur Inst TableV2+2 

tax 

tya 

adc Cur Inst TableV2+21 

tay 

jmp changeWave2 



; wave cycle 2 voice 2 

; decrement wave cycle 2 voice 2 

; add current low value for cycle 2 voice 2 

; add current high value for cycle 2 voice 2 



Reset Wave voice 2 

Flag meanings: 

xyyy yyyyz 

x^l -> reload the wave cycle with wave value of istrument table again 

z^l -> reload the wave cycle but use the actual wave value 

y^l -> continue with actual wave^. no more cycle 



resetWave2 : 

Ida CurInstTableV2+17 

and #$81 

beq changeWave2 

bpl useCycleActualV2 

jsr reloadWaveCycleV2 

jmp waveAddlV2 

useCycleActualV2 : 

jsr reloadWCycleV2 
jmp waveAddlV2 



; read current wave effect flag voice 2 

; go to continue with actual wave 

; reload wave cycle using wave in current ins. table 

; reload wave cycle using wave in register 



change wave setting of voice 2 
changeWave2 : 
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stx $F3 

sty $F4 

stx $D409 

sty $D40A 

testIfFreqEffV2: 

Ida CurInstTableV2+13 

beq exitCW2 



and 


#$08 


bne 


r322E 


Idx 


$F9 


Idy 


$FA 


clc 




Ida 


CurInstTableV2+12 


beq 


freqAddlV2 


dec 


CurInstTableV2+12 


Ida 


CurInstTableV2+13 


and 


#$02 


bne 


addF4V2 


exitCW2 : 




rts 





r322E: 



dec CurInstTableV2+4 
bne exitCW2 



freqAddlV2: 

clc 
freqAddlV2_: 

Ida CurInstTableV2+29 

beq freqAdd2V2 

dec CurInstTableV2+29 

txa 

adc CurInstTableV2+0 

tax 

tya 

adc CurInstTableV2+l 

jmp change_freq2 



freq add cycle2 voice 2 



freqAdd2V2: 

Ida CurInstTableV2+30 

beq freqAdd3V2 

dec CurInstTableV2+30 

txa 

adc CurInstTableV2+2 

tax 

tya 

adc CurInstTableV2+3 

jmp change_freq2 



freq add cycle3 voice 2 



freqAdd3V2: 

Ida CurInstTableV2+31 

beq freqAdd4V2 

dec CurInstTableV2+31 

txa 

adc CurInstTableV2+4 



wave low v2 

wave high v2 

Voice 2: Wave form pulsation amplitude (lo byte) 

Voice 2 : Wave form pulsation amplitude (hi byte) 



read current freq. flag effect voice 2 
exit if zero 



Idy 


CurInstTableV2+6 


sty 


CurInstTableV2+4 


Idy 


CurInstTableV2+12 


bpl 


r3241 


Idy 


CurInstTableV2+ll 


r3241 




Idx 


CurInstTableV2+8 


stx 


$EF 


Idx 


CurInstTableV2+9 


stx 


$F0 


Ida 


CurInstTableV2+10 ; 


clc 




adc 


($EF),y 


dey 




sty 


CurInstTableV2+12 


tay 




Idx 


highFreq, y ; 


Ida 


lowFreq, y ; 


stx 


$D407 


sta 


$D4 8 


rts 




; freq add 


cyclel voice 2 



current freq. initial delay voice 2 

dec current freq. initial delay voice 2 
read current freq. flag effect voice 2 



dec current freq low add 3 voice 2 



read current freq low add 4 voice 2 
store current freq low add 3 voice 2 
read current freq. initial delay voice 2 

read current (to reload) freq cycle 4 voice 2 



read current (to reload) freq cycle 1 voice 2 
read current (to reload) freq cycle 2 voice 2 
read current (to reload) freq cycle 3 voice 2 

store current freq. initial delay voice 2 

read freq low from table 

read freq high from table 

Voice 2: Frequency control (lo byte) 

Voice 2: Frequency control (hi byte) 



read current freq cycle 1 voice 2 

dec current freq cycle 1 voice 2 

add current low freq value for cycle 1 voice 2 

add current high freq value for cycle 1 voice 2 



read current freq cycle 2 voice 2 
dec current freq cycle 2 voice 2 
add current freq low add 2 voice 2 

add current freq high add 2 voice 2 



read current freq cycle 3 voice 2 
dec current freq cycle 3 voice 2 
add current freq low add 3 voice 2 
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tax 

tya 

adc CurInstTableV2+5 

jmp change_freq2 



; add current freq high add 3 voice 2 



freq add cycle4 voice 2 



freqAdd4V2: 

Ida CurInstTableV2+32 ; read current freq cycle 4 voice 2 

beq resetFreqV2 

dec CurInstTableV2+32 ; dec current freq cycle 4 voice 2 



addF4V2 : 
txa 

adc CurInstTableV2+6 
tax 
tya 
adc CurInstTableV2+7 



add current freq low add 4 voice 2 
add current freq high add 4 voice 2 



change frequecy: X^lo, A^hi voice 2 



change_f req2 : 
tay 



useCurrF2 : 
stx 
sty 
stx 
sty 

exitCF2 : 
rts 



$D407 
$D408 
$F9 

$FA 



use current frequency 

Voice 2: Frequency control (lo byte) 

Voice 2: Frequency control (hi byte) 

freq. low voice 2 

freq. high voice 2 



Reset Frequency voice 2 

Flag meandings : 

xyyy yyyyz 

x^l -> reload the freq. cycle with freq. value of istrument table again 

z^l -> reload the freq. cycle but use the actual freq value 

y^l -> continue with actual freq., no more cycle 



resetFreqV2 : 

Ida CurInstTableV2+13 

and #$81 

beq useCurrF2 

bpl useCycleFActualV2 

jsr reloadFreqCycleV2 
jmp freqAddlV2 

useCycleFActualV2 : 

jsr reloadFCycleV2 
jmp freqAddlV2 



Make the timbre of the voice 3 



makeTimbreV3 : 

Idx CurInstTableV3+28 

beq exitCF2 

Ida CurInstTableV3+26 

and #$08 

beq noTestB3 

Ida $E8 

cmp CurInstTableV3+27 

bcs testIfWaveEffV3 

Ida #$00 

sta CurInstTableV3+27 

Ida CurInstTableV3+26 

and #$F6 

sta CurInstTableV3+26 

bne outControl3 

noTestB3 : 

Ida CurInstTableV3+27 

bne r3311 

Idy CurInstTableV3+28 

iny 

beq testIfWaveEffV3 

dec CurInstTableV3+28 

bne testIfWaveEffV3 

; hard restart 

Idx #$06 
loopSid3 : 

sta $D40E,x 

dex 

bpl loopSid3 



read current freq. flag effect voice 2 



read current control registers voice 3 
read actual note duration (length) voice 3 

read current control registers voice 3 
store current control registers voice 3 



Voice 3: Frequency control (lo byte) 
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testFilterV3: 

Ida #$02 

jmp testFilterVl 



r3311: 




Idy 


CurInstTableV3+27 


my 




beq 


testIfWaveEffV3 


dec 


CurInstTableV3+27 


bne 


testIfWaveEffV3 


Ida 


CurInstTableV3+26 


and 


#$F6 


outControl3 : 


sta 


$D412 



testIfWaveEffV3: 

Ida CurInstTableV3+17 

beq testIfFreqEffV3 

Ida $FB 

ora $FC 

beq testIfFreqEffV3 

Ida CurInstTableV3+16 

beq waveAddlV3 

dec CurInstTableV3+16 

jmp testlfFreqEf fV3 



waveAdd2V3 : 

Ida CurInstTableV3+34 

beq resetWave3 

dec CurInstTableV3+34 

txa 

adc CurInstTableV3+20 

tax 

tya 

adc CurInstTableV3+21 

tay 

jmp changeWave3 



read current control registers voice 3 
gate and test bit to 



Voice 3: Control registers 
read wave effect flag voice 3 

read current wave initial delay voice 3 
dec current wave initial delay voice 3 



; wave add 


cycle 1 voice 3 


waveAddlV3 




clc 




Idx 


$F5 


Idy 


$F6 


Ida 


CurInstTableV3+33 


beq 


waveAdd2V3 


dec 


CurInstTableV3+33 


txa 




adc 


CurInstTableV3+18 


tax 




tya 




adc 


CurInstTableV3+19 


tay 




imp 


changeWave3 


; wave add 


cycle 2 voice 3 



read wave low v3 

read wave high v3 

read current wave cycle 1 voice 3 

dec current wave cycle 1 voice 3 

add current wave low add 1 voice 3 

add current high add 1 voice 3 



; read current wave cycle 2 voice 3 

; dec current wave cycle 2 voice 3 

; add current wave low add 2 voice 3 

; add current wave high add 2 voice 3 



Reset Wave voice 3 

Flag meanings : 

xyyy yyyyz 

x^l -> reload the wave cycle with wave value of istrument table again 

z^l -> reload the wave cycle but use the actual wave value 

y^l -> continue with actual wave^. no more cycle 



resetWave3 : 

Ida CurInstTableV3+17 

and #$81 

beq changeWave3 

bpl useCycleActualV3 

jsr reloadWaveCycleV3 

jmp waveAddlV3 

useCycleActualV3 : 

jsr reloadWCycleV3 
jmp waveAddlV3 



; wave effect flag voice 3 

; go to continue with actual wave 

; reload wave cycle using wave in current ins. table 

; reload wave cycle using wave in register 



change wave setting of voice 3 

changeWave3 : 

stx $F5 
sty $F6 
stx $D410 
sty $D411 



store wave low v3 

store wave high v3 

Voice 3: Wave form pulsation amplitude (lo byte) 

Voice 3: Wave form pulsation amplitude (hi byte) 
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testIfFreqEffV3: 

Ida CurInstTableV3+13 ; read freq. effect flag voice 3 

beq exitCW3 ; exit if zero 

Ida $FB ; read freq. low voice 3 

ora $FC ; freq. high voice 3 

beq exitCW3 

Idx $FB 

Idy $FC 
clc 

Ida CurInstTableV3+12 ; read current freq. initial delay voice 3 

beq freqAddlV3_ 

dec CurInstTableV3+12 ; dec current freq. initial delay voice 3 

Ida CurInstTableV3+13 ; read freq. effect flag voice 3 

and #$02 

bne addF4V3 
exitCW3: 
rts 



freq add cyclel voice 3 



freqAddlV3: 

clc 
freqAddlV3_: 

Ida CurInstTableV3+29 ; read current freq cycle 1 voice 3 

beq freqAdd2V3 

dec CurInstTableV3+29 ; dec current freq cycle 1 voice 3 

txa 

adc CurInstTableV3+0 ; add current low freq value for cycle 1 voice 3 

tax 

tya 

adc CurInstTableV3+l ; add current high freq value for cycle 1 voice 3 

jmp change_freq3 



freq add cycle2 voice 3 



freqAdd2V3: 

Ida CurInstTableV3+30 ; read current freq cycle 2 voice 3 

beq freqAdd3V3 

dec CurInstTableV3+30 ; dec current freq cycle 2 voice 3 

txa 

adc CurInstTableV3+2 ; add current freq low add 2 voice 3 

tax 

tya 

adc CurInstTableV3+3 ; add current freq high add 2 voice 3 

jmp change_freq3 



freq add cycle3 voice 3 



freqAdd3V3: 

Ida CurInstTableV3+31 ; read current freq cycle 3 voice 3 

beq freqAdd4V3 

dec CurInstTableV3+31 ; dec current freq cycle 3 voice 3 

txa 

adc CurInstTableV3+4 ; add current freq low add 3 voice 3 

tax 

tya 

adc CurInstTableV3+5 ; add current freq high add 3 voice 3 

jmp change_freq3 



freq add cycle4 voice 3 



freqAdd4V3: 

Ida CurInstTableV3+32 ; read current freq cycle 4 voice 3 

beq resetFreqV3 

dec CurInstTableV3+32 ; dec current freq cycle 4 voice 3 

addF4V3: 
txa 

adc CurInstTableV3+6 ; add current freq low add 4 voice 3 
tax 
tya 
adc CurInstTableV3+7 ; add current freq high add 4 voice 3 



change frequecy: X^lo, A^hi voice 3 



change_f req3 : 

tay 

useCurrF3: ; use current frequency 

stx $D40E ; Voice 3: Frequency control (lo byte) 

sty $D40F ; Voice 3: Frequency control (hi byte) 

stx $FB 
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sty $FC 
rts 

Reset Frequency voice 3 

Flag meandings: 

xyyy yyyyz 

x^l -> reload the freq. cycle with freq. value of istrument table again 

z^l -> reload the freq. cycle but use the actual freq value 

y^l -> continue with actual freq., no more cycle 



resetFreqV3 : 


Ida 


CurInstTableV3+13 


and 


#$81 


beq 


useCurrF3 


bpl 


useCycleFActualV3 


jsr 


reloadFreqCycleV3 


imp 


freqAddlV3 



read current freq. flag effect voice 3 



useCycleFActualV3 : 

jsr reloadFCycleV3 
jmp freqAddlV3 



;3417 




Ida 


playMusicVl ; 


ora 


playMusicV2 ; 


ora 


playMusicV3 ; 


ora 


CurInstTableVl+28 


ora 


CurInstTableV2+28 


ora 


CurInstTableV3+28 


rts 





play music flag voice 1 
play music flag voice 2 
play music flag voice 3 



Define the table with the track 
offset: last byte is the minime 
duration of a note 
The offset used by setTrack is 

calculated from the second byte 
of the table 



trackTable: 

tune3 : 

-byte <tune3_voicel, >tune3_voicel 
-byte <tune3_voice2, >tune3_voice2 
-byte <tune3_voice3, >tune3_voice3 
-byte $09 ; min note duration 

tune4 : 

-byte <tune4_voicel, >tune4_voicel 
-byte <tune4_voice2, >tune4_voice2 
-byte <tune4_voice3, >tune4_voice3 
-byte $0B ; min note duration 

tuneS : 

-byte <tune5_voicel, >tune5_voicel 
-byte <tune5_voice2, >tune5_voice2 
-byte <tune5_voice3, >tune4_voice3 
-byte $09 ; min note duration 



343F 






.byte 


$DD, 


$DD 


.byte 


$DD, 


$DD 


.byte 


$DD, 


$DD 


.byte 


$DD 





tune6 : 

-byte <tune6_voicel, >tune6_voicel 
-byte <tune6_voice2, >tune6_voice2 
-byte <tune6_voice3, >tune6_voice3 
-byte $0D ; min note duration 

tune2 : 

-byte <tune2_voicel, >tune2_voicel 
-byte <tune2_voice2, >tune2_voice2 
-byte <tune2_voice3, >tune2_voice3 
-byte $03 ; min note duration 

tuneV : 

-byte <tune7_voicel, >tune7_voicel 
-byte <tune7_voice2, >tune7_voice2 
-byte <tune7_voice3, >tune7_voice3 
-byte $0B ; min note duration 

tuneS : 

-byte <tune8_voicel, >tune8_voicel 

-byte <tune8_voice2, >tune8_voice2 

-byte <tune8_voice3, >tune8_voice3 
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.byte $07 



min note duration 



tunel : 

-byte <tunel_voicel, >tunel_voicel 
-byte <tunel_voice2, >tunel_voice2 
-byte <tunel_voice3, >tunel_voice3 
.byte $04 



min note duration 



; Instrument 


01 definition 


insOl: 






.byte 


$14, 


$00 


.byte 


$EC, 


$FF 


.byte 


$14, 


$00 


.byte 


$00, 


$00 


.byte 


$03, 


$06 


.byte 


$03, 


$00 


.byte 


$1E, 


$05 


.byte 


$32, 


$32 


.byte 


$0A, 


$05 


.byte 


$0A, 


$00 


.byte 


$F6, 


$FF 


.byte 


$00, 


$08 



.byte $41 

.byte $14, $C8 

.byte $FF, $FA 

; Instrument 02 definition 
ins02 : 

.byte $23, $00 

.byte $DD, $FF 

.byte $23, $00 

.byte $00, $00 

.byte $03, $05 

.byte $02, $00 

.byte $0A, $05 



.byte $00, 

.byte $00, 

.byte $00, 

.byte $00, 

.byte $00, 



$00 
$00 
$00 
$00 
$00 



.byte $19 
.byte $A4, $F9 
.byte $14, $FE 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control to rectangular 
AD/SR 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave not used 



control to triangular + test bit 
AD SR 



tunel_voice 


L: 




.byte 


$D2 


$1C, 


<ins01, >ins01 


.byte 


$5F 


$20 




.byte 


$1D 


$20 




.byte 


$CC 


$03 




.byte 


$5F 


$20 




.byte 


$CE 






.byte 


$1F 


$20 




.byte 


$CC 


$03 




.byte 


$5F 


$20 




.byte 


$CE 






.byte 


$DE 


$0C, 


$80, $07 


.byte 


$DE 


$06, 


$3C, $00 


.byte 


$C6 


$F4, 


<sub01, >sub01 


.byte 


$CA 


$1A, 


$8D 


.byte 


$C6 


$00, 


<sub 1, >sub 1 


.byte 


$D6 


$1B, 


$01 


.byte 


$D2 


$1C, 


<ins02, >ins02 


.byte 


$CC 


$04 




.byte 


$5F 


$20 




.byte 


$CE 






.byte 


$CC 


$04 




.byte 


$43 


$10 




.byte 


$42 


$10 




.byte 


$40 


$10 




.byte 


$3E 


$10 




.byte 


$3C 


$10 




.byte 


$3B 


$10 




.byte 


$39 


$10 




.byte 


$37 


$10 




.byte 


$CE 






.byte 


$co 






; instrumem 


: 03 definition 


ins03: 








.byte 


$14 


$00 




.byte 


$EC 


$FF 




.byte 


$14 


$00 




.byte 


$00 


$00 




.byte 


$03 


$06 




.byte 


$03 


$00 





SETNI instr: set all the instrument table 

FOR instr: repeat 3h times 

NEXT instr 

FOR instr: repeat 3h times 

NEXT instr 

SET2CI instr: delay initial I freq effect flag 

SET2CI instr: freq low | high add 4 

JSRT : execute subroutine with transpose 

SET instr: set SR of instrument 

JSRT: execute subroutine with transpose 

SETCI instr (??????????????????) 

SETNI instr: set all the instrument table 

FOR instr: repeat 4h times 

NEXT instr 

FOR inst : repeat 4h times 



NEXT instr 

RTS instruction 



freq low/high add 1 
freq low/high add 2 
freq low/high add 3 
freq low/high add 4 
freq cycle 1/2 
freq cycle 3/4 
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.byte $0A, $05 



freq delay initial/freq effect flag 



.byte $32, $32 

.byte $14, $05 

.byte $0A, $00 

.byte $F6, $FF 

.byte $00, $08 
.byte $41 

.byte $14, $C4 

.byte $FF, $05 

tab07: 

.byte $0C, $00, $03, $09 

tabOb: 

.byte $0C, $00, $03, $07 

tabOf : 

.byte $0C, $00, $05, $0B 

tabl3: 

.byte $0C, $00, $05, $09 

; instrument 04 definition 
ins04 : 



wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control to rectangular 

AD/SR 



.byte 


$00, 


$00 




.byte 


$00, 


$00 




.byte 


$01, 


$00 




.byte 


$01, 


$00 




.byte 


$07, 


$35 




.byte 


$00, 


$03 




.byte 


$00, 


$08 




.byte 


$32, 


$32 




.byte 


$14, 


$00 




.byte 


$0A, 


$00 




.byte 


$F6, 


$FF 




.byte 


$00, 


$08 




.byte 


$41 






.byte 


$01, 


$F7 




.byte 


$04, 


$14 




tunel_voice2 






.byte 


$D2, 


'$1C, 


<ins03, >ins03 ; 


.byte 


$5F, 


$20 




.byte 


$1D, 


$20 




.byte 


$CC, 


$03 




.byte 


$5F, 


$20 




.byte 


$CE 






.byte 


$1F, 


$20 




.byte 


$CC, 


$03 




.byte 


$5F, 


$20 




.byte 


$CE 






.byte 


$DE, 


$0C, 


$80, $07 ; 


.byte 


$DE, 


$06, 


$28, $00 


.byte 


$D2, 


$1C, 


<ins04, >ins04 ; 


.byte 


$5F, 


$20 




.byte 


$CC, 


$02 




.byte 


$DC, 


$08, 


<tab07, >tab07 ; 


.byte 


$CC, 


$10 




.byte 


$39, 


$02 




.byte 


$CE 






.byte 


$DC, 


$08, 


<tabOb, >tabOb ; 


.byte 


$CC, 


$10 




.byte 


$39, 


$02 




.byte 


$CE 






.byte 


$DC, 


$08, 


<tabOf, >tabOf ; 


.byte 


$CC, 


$10 




.byte 


$37, 


$02 




.byte 


$CE 






.byte 


$DC, 


$08, 


<tabl3, >tabl3 ; 


.byte 


$CC, 


$10 




.byte 


$37, 


$02 




.byte 


$CE 






.byte 


$CE 






.byte 


$cc. 


$07 




.byte 


$DC, 


$08, 


<tab07, >tab07 ; 


.byte 


$CC, 


$03 




.byte 


$CA, 


$0D, 


$08 ; 


.byte 


$39, 


$02 




.byte 


$CA, 


$0D, 


$00 


.byte 


$39, 


$02 




.byte 


$CE 






.byte 


$45, 


$02 




.byte 


$CA, 


$0D, 


$08 


.byte 


$39, 


$02 




.byte 


$CA, 


$0D, 


$00 


.byte 


$45, 


$02 




.byte 


$CA, 


$0D, 


$08 


.byte 


$39, 


$02 





freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control : rectangular 

AD/SR 



SETNI instr: set all the instrument table 

FOR inst : repeat 3h times 

NEXT instr 

FOR inst: repeat 3h times 

NEXT instr 

SET2CI instr: set freq delay initial/freq effect flag 

SET2CI instr: set freq low/high add 4 

SETNI instr: set all the instrument table 

FOR inst: repeat 2h times (level 1) 
SET2I instr: freq cycle 1/2 
FOR inst: repeat lOh times (level 2) 

NEXT (level 2) 

SET2I instr: freq cycle 1/2 

FOR inst: repeat lOh times (level 2) 

NEXT (level 2) 

SET2I instr: freq cycle 1/2 

FOR inst: repeat lOh times (level 2) 

NEXT (level 2) 

SET2I instr: freq cycle 1/2 

FOR inst: repeat lOh times (level 2) 

NEXT (level 2) 
NEXT (level 1) 
FOR inst: repeat 7h times (level 1) 

SET2I instr: freq cycle 1/2 

FOR inst: repeat 3h times (level 2) 
SETI: set freq effect flag on 

SETI: set freq effect flag off 

NEXT (level 2) 

SETI: set freq effect flag on 

SETI: set freq effect flag off 

SETI: set freq effect flag on 
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.byte 


$CA 


$0D, 


$00 




.byte 


$39 


$02 






.byte 


$45 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$39 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$39 


$02 






.byte 


$39 


$02 






.byte 


$39 


$02 






.byte 


$DC 


$08, 


<tabOb, 


>tabOb 


.byte 


$CA 


$0D, 


$08 




.byte 


$39 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$39 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$CC 


$04 






.byte 


$39 


$02 






.byte 


$CE 








.byte 


$CC 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$45 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$39 


$02 






.byte 


$CE 








.byte 


$39 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$45 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$39 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$45 


$02 






.byte 


$39 


$02 






.byte 


$39 


$02 






.byte 


$DC 


$08, 


<tabOf, 


>tabOf 


.byte 


$CC 


$03 






.byte 


$CA 


$0D, 


$08 




.byte 


$37 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$37 


$02 






.byte 


$CE 








.byte 


$48 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$37 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$48 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$37 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$37 


$02 






.byte 


$48 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$37 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$37 


$02 






.byte 


$37 


$02 






.byte 


$37 


$02 






.byte 


$DC 


$08, 


<tabl3. 


>tabl3 


.byte 


$CA 


$0D, 


$08 




.byte 


$37 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$37 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$CC 


$04 






.byte 


$37 


$02 






.byte 


$CE 








.byte 


$cc 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$48 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$37 


$02 






.byte 


$CE 








.byte 


$37 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$48 


$02 






.byte 


$CA 


$0D, 


$08 




.byte 


$37 


$02 






.byte 


$CA 


$0D, 


$00 




.byte 


$48 


$02 






.byte 


$37 


$02 






.byte 


$37 


$02 






.byte 


$CE 








.byte 


$co 








; filter tal 


3le 01 


def init 


ion 


filOl: 










.byte 


$4D 


$01 






.byte 


$E2 


$FF 






.byte 


$00 


$00 






.byte 


$00 


$00 






.byte 


$03 









; SETI: set freq effect flag off 

; SETI: set freq effect flag on 
; SETI: set freq effect flag off 



SET2I instr: freq cycle 1/2 
SETI: set freq effect flag on 

SETI: set freq effect flag off 

SETI: set freq effect flag on 

FOR inst : repeat 4h times (level 2) 

NEXT (level 2) 

FOR inst: repeat 2h times (level 2) 
SETI: set freq effect flag off 

SETI: set freq effect flag on 

NEXT (level 2) 



SETI 
SETI 
SETI 



set freq effect flag off 
set freq effect flag on 
set freq effect flag off 



SET2I instr: freq cycle 1/2 
FOR inst: repeat 3h times (level 2) 
SETI: set freq effect flag on 

SETI: set freq effect flag off 

NEXT (level 2) 



SETI 
SETI 
SETI 
SETI 



set freq effect flag on 

set freq effect flag off 

set freq effect flag on 

set freq effect flag off 



SETI : set freq effect flag on 
SETI: set freq effect flag off 



SET2I instr: freq cycle 1/2 
SETI: set freq effect flag on 

SETI: set freq effect flag off 

SETI: set freq effect flag on 

FOR inst: repeat 3h times (level 2) 

NEXT (level 2) 

FOR inst: repeat 3h times (level 2) 
SETI: set freq effect flag off 

SETI: set freq effect flag on 

NEXT (level 2) 



SETI 
SETI 
SETI 



set freq effect flag off 
set freq effect flag on 
set freq effect flag off 



; NEXT (level 1) 
; RTS instruction 



add filter low/high value 1 
add filter low/high value 2 
add filter low/high value 3 
add filter low/high value 4 
filter cycle 1 
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.byte 


$14 




.byte 


$00 




.byte 


$00 




.byte 


$00 




.byte 


$04 




.byte 


$01 




.byte 


$00 




; instrument 


05 definition 


insOS: 






.byte 


$14, 


$00 


.byte 


$EC, 


$FF 


.byte 


$14, 


$00 


.byte 


$1C, 


$00 


.byte 


$03, 


$0 6 


.byte 


$03, 


$00 


.byte 


$28, 


$07 


.byte 


$32, 


$32 


.byte 


$28, 


$05 


.byte 


$0A, 


$00 


.byte 


$F6, 


$FF 


.byte 


$00, 


$08 


.byte 


$41 




.byte 


$14, 


$C8 ; 


.byte 


$FF 




.byte 


$32 





filter cycle 2 

filter cycle 3 

filter cycle 4 

filter initial delay 

filter effct flag 

filter low value (8 bit) 

filter high value (3 bit) 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control: rectangular 

AD/SR 



; filter table 02 definition 
fil02: 

.byte $4D, $01 

.byte $D3, $FF 

.byte $FB, $FF 

.byte $FF, $FF 

.byte $03, $14 

.byte $0A, $32 

.byte $00 

.byte $04 

.byte $01 

.byte $00 



ins06 : 

insFOl: 

.byte $19, 
.byte $E7, 
.byte $19, 
.byte $00, 
.byte $02, 
.byte $02, 
.byte $06, 

.byte $32, 
.byte $00, 
.byte $14, 
.byte $EC, 
.byte $00, 
.byte $41 
.byte $14, 
.byte $1E 
.byte $28 

insF02: 

.byte $20, 
.byte $00, 
.byte $00, 
.byte $00, 
.byte $FF, 
.byte $00, 
.byte $0A, 



subOl: 
.byt 

sub_l : 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 
.byt 



$21, 
$5F, 
$23, 
$24, 
$5F, 
$26, 
$28, 
$24, 
$21, 
$5F, 
$23, 
$24, 
$5F, 
$C0 



$00 
$FF 
$00 
$00 
$04 
$00 
$05 

$32 
$05 
$00 
$FF 
$06 

$E8 



$00 
$00 
$00 
$00 
$00 
$00 
$04 



e $5F, $20 



sub02: 

.byte $21, 



$20 
$1A 
$06 
$20 
$1A 
$02 
$02 
$02 
$20 
$1A 
$06 
$20 
$20 



$04 



add filter low/high value 1 
add filter low/high value 2 
add filter low/high value 3 
add filter low/high value 4 
filter cycle 1/2 
filter cycle 3/4 
filter initial delay 
filter effect flag 
filter low value (8 bit) 
filter high value (3 bit) 

instrument 06 definition 

instrument frequency table 1 

freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control: rectangular 

AD/SR 



instrument frequency table 2 

freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 



RTS instruction 
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.byte 


$21 


$04 


.byte 


$2D 


$01 


.byte 


$50 


$01 


.byte 


$21 


$04 


.byte 


$21 


$08 


.byte 


$21 


$02 


.byte 


$2D 


$02 


.byte 


$1C 


$02 


.byte 


$1F 


$04 


.byte 


$21 


$04 


.byte 


$21 


$02 


.byte 


$21 


$02 


.byte 


$2D 


$01 


.byte 


$50 


$01 


.byte 


$21 


$04 


.byte 


$21 


$04 


.byte 


$21 


$04 


.byte 


$21 


$02 


.byte 


$2D 


$02 


.byte 


$21 


$02 


.byte 


$23 


$04 


.byte 


$24 


$04 


.byte 


$24 


$02 


.byte 


$24 


$02 


.byte 


$30 


$01 


.byte 


$50 


$03 


.byte 


$24 


$02 


.byte 


$24 


$04 


.byte 


$24 


$02 


.byte 


$24 


$02 


.byte 


$24 


$02 


.byte 


$30 


$02 


.byte 


$F0 


<insF02, >insF02 


.byte 


$1F 


$06 


.byte 


$F0 


<insF01, >insF01 , 


.byte 


$24 


$02 


.byte 


$18 


$02 


.byte 


$24 


$02 


.byte 


$18 


$02 


.byte 


$30 


$04 


.byte 


$24 


$02 


.byte 


$24 


$04 


.byte 


$24 


$02 


.byte 


$34 


$02 


.byte 


$24 


$02 


.byte 


$30 


$02 


.byte 


$28 


$02 


.byte 


$2B 


$02 


.byte 


$2D 


$02 


.byte 


$C0 




execOl : 






Ida 


l$10 


sta 


EEMP 


rts 




exec02 : 






Ida 


l$00 


sta 


EEMP 


sta 


?D417 


sta 1 


/oiceNumber , 


rts 




tunel_voice 


3: 


.byte 


$E2 


<fil02, >fil02 


.byte 


$D2 


$1C, <ins05, >ins05 , 


.byte 


$BF 


$58 


.byte 


$65 


$28 


.byte 


$CC 


$04 


.byte 


$5F 


$20 


.byte 


$CE 




.byte 


$CA 


$0D, $05 ', 


.byte 


$1F 


$20 


.byte 


$CC 


$03 


.byte 


$5F 


$20 


.byte 


$CE 




.byte 


$DE 


$0C, $80, $07 ' 


.byte 


$DE 


$06, $14, $00 


.byte 


$CA 


$0D, $05 


.byte 


$C2 


<sub01, >sub01 


.byte 


$D2 


$1C, <ins06 >ins06 


.byte 


$E0 




.byte 


$D8 


<exec01, >exec01 , 


.byte 


$C2 


<sub02, >sub02 


.byte 


$C2 


<sub02, >sub02 


.byte 


$D2 


$1C, <ins02, >ins02 , 


.byte 


$E2 


<fil01, >fil01 


.byte 


$CC 


$03 


.byte 


$5F 


$20 


.byte 


$CE 





SETFI: set frequency effect for instrument 
SETFI: set frequency effect for instrument 



RTS instruction 



Filter resonance control/voice input control 
voice number (0,1,2) on where apply filter 



FILTA instr: set filter table 

SETNI instr: set all the instrument table 



FOR inst : repeat 4h times 

NEXT instr 

SETI: set freq effect flag on 

FOR inst: repeat 3h times 

NEXT instr 

SET2CI instr: delay initial | freq effect flag 

SET2CI instr: freq low | high add 4 

SETI: set freq effect flag on 

JSR instruction 

SETNI instr: set all the instrument table 

EXCT : execute given address code 
JSR instruction: execute subroutine 
JSR instruction: execute subroutine 
SETNI instr: set all the instrument table 
FILTA instr: set filter table 
FOR inst: repeat 3h times 

NEXT instr 
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.byte $CC 

.byte $43 

.byte $42 

.byte $40 

.byte $3E 

.byte $3C 

.byte $3B 

.byte $39 

.byte $37 

.byte $CE 

.byte $43 

.byte $A2 

.byte $E2 

.byte $D2 

.byte $BF 

.byte $65 

.byte $D2 

.byte $C2 

.byte $C2 

.byte $D8 

.byte $5F 

.byte $CC 

.byte $5F 

.byte $CE 

.byte $C0 



$02 
$10 
$10 
$10 
$10 
$10 
$10 
$10 
$10 

$10 

$17 

<fil02, >fil02 

$1C, <ins05, >ins05 

$01 

$28 

$1C, <ins06, >ins06 

<sub02, >sub02 

<sub02, >sub02 

<exec02, >exec02 

$10 

$0A 

$20 



FOR inst: repeat 2h times 



; instrument 07 definition 
ins07: 

.byte $1E, $00 

.byte $E2, $FF 

.byte $1E, $00 

.byte $00, $00 

.byte $03, $05 

.byte $02, $00 

.byte $08, $05 

.byte $00, $00 

.byte $00, $00 



.byte 


$00 


$00 


.byte 


$00 


$00 


.byte 


$00 


$08 


.byte 


$49 




.byte 


$06 


$99 


.byte 


$04 


$28 


sub03: 






.byte 


$37 


$04 


.byte 


$39 


$02 


.byte 


$3A 


$02 


.byte 


$39 


$03 


.byte 


$5F 


$01 


.byte 


$37 


$03 


.byte 


$5F 


$01 


.byte 


$C0 




sub04: 






.byte 


$39 


$03 


.byte 


$5F 


$01 


.byte 


$3E 


$03 


.byte 


$5F 


$01 


.byte 


$39 


$07 


.byte 


$5F 


$01 


.byte 


$C0 




sub05: 






.byte 


$C2 


<sub03, >sub03 


.byte 


$C2 


<sub04, >sub04 


.byte 


$C2 


<sub03, >sub03 


.byte 


$37 


$04 


.byte 


$36 


$04 


.byte 


$37 


$04 


.byte 


$39 


$04 


.byte 


$C2 


<sub03, >sub03 


.byte 


$C2 


<sub04, >sub04 


.byte 


$3A 


$04 


.byte 


$3C 


$02 


.byte 


$3E 


$02 


.byte 


$3C 


$03 


.byte 


$5F 


$01 


.byte 


$3A 


$03 


.byte 


$5F 


$01 


.byte 


$3C 


$03 


.byte 


$5F 


$01 


.byte 


$41 


$03 


.byte 


$5F 


$01 


.byte 


$3C 


$07 


.byte 


$5F 


$01 


.byte 


$CC 


$02 


.byte 


$cc 


$03 


.byte 


$45 


$02 



NEXT instr 



FILTA instr: set filter table 

SETNI instr: set all the instrument table 



SETNI instr: set all the instrument table 

JSR instruction: execute subroutine 

JSR instruction: execute subroutine 

EXCT : execute given address code: filter to 



FOR inst: repeat Ah times 

NEXT instr 

RTS instruction 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control: rectangular, test bit on 

AD/SR 



RTS instruction 



RTS instruction 



JSR instruction: 
JSR instruction: 
JSR instruction: 



execute subroutine 
execute subroutine 
execute subroutine 



JSR instruction: execute subroutine 
JSR instruction: execute subroutine 



FOR inst: repeat 2h times (level 1) 
FOR inst: repeat 3h times (level 2) 
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.byte $45, $02 

.byte $5F, $04 
.byte $CE 

.byte $45, $02 

.byte $43, $02 

.byte $41, $02 

.byte $3C, $02 

.byte $3E, $1C 

.byte $5F, $04 
.byte $CE 
.byte $C0 

tune2_voicel : 

.byte $D2, $1C, <ins07, >ins07 

.byte $BF, $01 



t2vl_: 








.byte 


$CC, 


$04 




.byte 


$C2, 


<sub05. 


>sub05 


.byte 


$CE 






.byte 


$cc. 


$40 




.byte 


$5F, 


$04 




.byte 


$CE 






.byte 


$C4, 


<t2vl_. 


>t2vl_ 



NEXT instr (level 2) 



; NEXT instr (level 1) 
; RTS instruction 



; SETNI instr: set all the instrument table 



FOR inst: repeat 4h times 

JSR instruction: execute subroutine 

NEXT instr 

FOR inst: repeat 40h times 

no sound (rest) 
NEXT instr 
JMP instr.: jump to given address location 



; instrument 08 definition 
ins08: 

.byte $1E, $00 

.byte $E2, $FF 

.byte $1E, $00 

.byte $00, $00 

.byte $02, $04 

.byte $02, $00 

.byte $06, $05 

.byte $00, $00 

.byte $00, $00 

.byte $00, $00 

.byte $00, $00 

.byte $00, $08 
.byte $29 

.byte $06, $99 
.byte $04 
.byte $28 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control: sawtooth and test bit on 

AD/SR 



tune2_voice2 






.byte 


$D2, 


$1C, <ins08, >ins08 ; 


.byte 


$BF, 


$01 




t2v2_: 








.byte 


$CC, 


$03 


; 


.byte 


$C2, 


<sub05. 


>sub05 ; 


.byte 


$5F, 


$02 




.byte 


$CE 




; 


.byte 


$cc. 


$FA 


; 


.byte 


$5F, 


$01 




.byte 


$CE 




; 


.byte 


$C2, 


<sub05, 


>sub05 


.byte 


$C4, 


<t2v2_. 


>t2v2_ 


; instrument 


09 definition 


ins09: 








.byte 


$00, 


$00 




.byte 


$00, 


$00 




.byte 


$00, 


$00 




.byte 


$00, 


$00 




.byte 


$00, 


$00 




.byte 


$00, 


$00 




.byte 


$00, 


$00 




.byte 


$FF, 


$00 




.byte 


$01, 


$04 




.byte 


$64, 


$00 




.byte 


$00, 


$00 




.byte 


$00, 


$02 




.byte 


$41 






.byte 


$06, 


$48 




.byte 


$0A 






.byte 


$14 







SETNI instr: set all the instrument table 



FOR inst: repeat 3h times 

JSR instruction: execute subroutine 

NEXT instr 

FOR inst: repeat FAh times 

NEXT instr 

JSR instruction: execute subroutine 

JMP inst.: jump to given address location 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control : rectangular 

AD/SR 



sub0 6 : 

.byte $CC, $02 
.byte $00, $02 
.byte $00, $02 
.byte $0C, $02 
.byte $0C, $02 
.byte $CE 
.byte $C0 



FOR inst: repeat 2h times 



NEXT inst 

RTS instruction 



sub07: 

.byte $C6, 
.byte $C6, 



$1F, 
$1D, 



<sub06, 
<sub06. 



>sub06 
>sub06 



JSRT : execute subroutine with transpose 
JSRT : execute subroutine with transpose 
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.byte $C6, $1B, <sub06, >sub06 
.byte $C6, $1A, <sub06, >sub06 
.byte $C0 

tune2_voice3 : 

.byte $D2, $1C, <ins09, >ins09 

.byte $BF, $01 

t2v3_: 

.byte $C2, <sub07, >sub07 

.byte $C6, $1F, <sub06, >sub06 

.byte $C6, $1D, <sub06, >sub06 

.byte $C6, $1B, <sub06, >sub06 

.byte $C6, $1D, <sub06, >sub06 

.byte $C2, <sub07, >sub07 

.byte $C2, <sub07, >sub07 

.byte $C4, <t2v3_, >t2v3_ 

parOl : 

.byte $11 
.byte $23, $E4 
.byte $14 
.byte $0A 



JSRT : execute subroutine with transpose 
JSRT : execute subroutine with transpose 
RTS instruction 



SETNI instr: set all the instrument table 



JSR instruction: execute subroutine 
JSRT: execute subroutine with transpose 
JSRT: execute subroutine with transpose 
JSRT: execute subroutine with transpose 
JSRT: execute subroutine with transpose 
JSR instruction: execute subroutine 
JSR instruction: execute subroutine 
JMP instr. 



control: triangle 
AD/SR 



tune7_voicel : 

.byte $D4, <par01, >par01 

.byte $BF, $15 

.byte $37, $01 

.byte $3D, $01 

.byte $3E, $01 

.byte $41, $01 

.byte $43, $01 

.byte $47, $01 

.byte $C0 

tune7_voice2 : 

.byte $D4, <par01, >par01 

.byte $BF, $0B 

.byte $37, $01 

.byte $3D, $01 

.byte $3E, $01 

.byte $41, $01 

.byte $43, $01 

.byte $47, $01 

.byte $4A, $01 

.byte $C0 



INSTR instruction: select instrument parameter 



RTS instruction 



INSTR instruction: select instrument parameter 



RTS instruction 



par02 : 

.byte $41 

.byte $24, $A4 
.byte $14 
.byte $04 

tune7_voice3 : 

.byte $D4, <par02, >par02 

.byte $DC, $16, $00, $08 

.byte $BF, $01 

.byte $37, $01 

.byte $3D, $01 

.byte $3E, $01 

.byte $41, $01 

.byte $43, $01 

.byte $47, $01 

.byte $4A, $01 

.byte $C0 

; instrument frequency table 3 
insF03: 

.byte $EB, $F2 

.byte $00, $00 

.byte $15, $0D 

.byte $00, $00 

.byte $01, $03 

.byte $01, $09 

.byte $09, $05 

par03 : 

.byte $19 

.byte $13, $E4 
.byte $02 
.byte $0A 

tune6_voicel : 

.byte $D4, <par03, >par03 

.byte $BF, $1B 
t6vl_: 

.byte $3A, $01 

.byte $35, $01 

.byte $37, $01 

.byte $32, $01 

.byte $35, $01 



control: rectangular 
AD/SR 



INSTR instruction: select instrument parameter 
SET2I: set wave low/high of voice 



RTS instruction 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 



control: triangle, test bit on 
AD/SR 



INSTR instruction: select instrument parameter 
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.byte $30, $01 

.byte $32, $01 

.byte $2E, $01 

.byte $F0, <insF03, >insF03 

.byte $2B, $03 

.byte $CA, $0D, $00 

.byte $2B, $02 

.byte $C0 

tune6_voice2 : 

.byte $D4, <par03, >par03 

.byte $BF, $04 

.byte $C4, <t6vl_, >t6vl_ 

par04 : 

.byte $49 

.byte $24, $A4 

.byte $02, $04 

tune6_voice3 : 

.byte $D4, <par04, >par04 

.byte $DC, $16, $00, $08 

.byte $BF, $01 

.byte $C4, <t6vl_, >t6vl_ 



SETFI: set frequency effect for instrument 
SETI: set freq effect flag off 
RTS instr. 

INSTR: select all instrument table 

JMP instr.: jump to given address location 



control: rectangular + test 
AD/SR 



INSTR inst . : select all instrument table 
SET2I: set wave low/high of voice 

JMP instr.: jump to given address location 



; instrument OA definition 
insOA: 

.byte $0E, $00 

.byte $F2, $FF 

.byte $0E, $00 

.byte $00, $00 

.byte $05, $0A 

.byte $05, $00 

.byte $14, $05 



.byte 


$FF, 


$00 


.byte 


$00, 


$04 


.byte 


$0A, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$49 




.byte 


$06, 


$98 


.byte 


$05 




.byte 


$1E 





<insOA, >insOA 



<insOA, >insOA 



tune3_voicel : 

.byte $D2, $1C, 

.byte $30, $03 

.byte $30, $01 

.byte $37, $08 

.byte $96, $0C 

.byte $97, $0C 

.byte $99, $0C 

.byte $37, $10 

.byte $30, $03 

.byte $30, $01 

.byte $37, $08 

.byte $39, $01 

.byte $37, $01 

.byte $36, $01 

.byte $39, $01 

.byte $37, $08 
.byte $C0 

tune3_voice2 : 

.byte $D2, $1C, 

.byte $2B, $03 

.byte $2B, $01 

.byte $34, $08 

.byte $93, $0C 

.byte $94, $0C 

.byte $95, $0C 

.byte $34, $10 

.byte $2B, $03 

.byte $2B, $01 

.byte $34, $08 

.byte $35, $01 

.byte $34, $01 

.byte $33, $01 

.byte $35, $01 

.byte $34, $08 
.byte $C0 



; filter table 03 definition 
fil03: 

.byte $4D, $01 

.byte $D3, $FF 

.byte $14, $00 

.byte $EC, $FF 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control : rectangular, test bit on 

AD/SR 



SETNI instr: set all the instrument table 



RTS instruction 



SETNI instr: set all the instrument table 



RTS instruction 



add filter low/high value 1 
add filter low/high value 2 
add filter low/high value 3 
add filter low/high value 4 
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.byte 


$03, 


$14 


.byte 


$32, 


$32 


.byte 


$00 




.byte 


$04 




.byte 


$01 




.byte 


$00 




; instrument 


OB definition 


insOB: 






.byte 


$0F, 


$00 


.byte 


$F1, 


$FF 


.byte 


$0F, 


$00 


.byte 


$00, 


$00 


.byte 


$04, 


$08 


.byte 


$04, 


$00 


.byte 


$0E, 


$05 


.byte 


$19, 


$00 


.byte 


$00, 


$04 


.byte 


$0A, 


$00 


.byte 


$00, 


$00 


.byte 


$00, 


$08 


.byte 


$49 




.byte 


$06, 


$98 ; 


.byte 


$05 




.byte 


$1E 




tune3_voice3 




.byte 


$D2, 


$1C, <insOB, >insOB ; 


.byte 


$E0 




.byte 


$E2, 


<fil03, >fil03 ; 


.byte 


$CC, 


$03 


.byte 


$24, 


$04 


.byte 


$1F, 


$04 


.byte 


$CE 


; 


.byte 


$24, 


$02 


.byte 


$1F, 


$02 


.byte 


$21, 


$02 


.byte 


$23, 


$02 


.byte 


$CC, 


$02 


.byte 


$24, 


$04 


.byte 


$1F, 


$04 



.byte 


$1F, 


$04 


.byte 


$CE 




.byte 


$24, 


$10 


.byte 


$5F, 


$08 


.byte 


$C0 




tune4_voice3 




.byte 


$D2, 


$1C, <insOB, >insOB 


.byte 


$E0 




.byte 


$E2, 


<fil03, >fil03 


.byte 


$5F, 


$03 


.byte 


$1B, 


$01 


.byte 


$1B, 


$01 


.byte 


$1B, 


$01 


.byte 


$1B, 


$03 


.byte 


$1D, 


$03 


.byte 


$21, 


$03 


.byte 


$CC, 


$02 


.byte 


$84, 


$10 


.byte 


$7F, 


$11 


.byte 


$CE 




.byte 


$24, 


$06 


.byte 


$C0 




tune4_voice2 




.byte 


$BF, 


$14 


tune4_voicel 




.byte 


$D2, 


$1C, <insOA, >insOA 


.byte 


$37, 


$02 


.byte 


$37, 


$01 


.byte 


$3A, 


$06 


.byte 


$99, 


$10 


.byte 


$97, 


$11 


.byte 


$95, 


$10 


.byte 


$99, 


$11 


.byte 


$37, 


$06 


.byte 


$C0 





filter cycle 1/2 
filter cycle 3/4 
filter initial delay 
filter effect flag 
filter low value (8 bit) 
filter high value (3 bit) 



freq low/high add 1 

freq low/high add 2 

freq low/high add 3 

freq low/high add 4 

freq cycle 1/2 

freq cycle 3/4 

freq delay initial/freq effect flag 

wave cycle 1/2 

wave delay initial/wave effect flag 

wave low/high add 1 

wave low/high add 2 

wave low/high 

control: rectangular and test bit on 

AD/SR 



SETNI instr: set all the instrument table 
LF3 : low filter (max resonance) on voice 3 
FILTA instr: set filter table 
FOR inst : repeat 3h times 



NEXT instr 



FOR inst: repeat 2h times 



NEXT instr 



RTS instruction 



SETNI instr: set all the instrument table 
LF3: low filter (max resonance) on voice 3 
FILTA instr: set filter table 



FOR inst: repeat 2h times 

NEXT instr 

RTS instruction 



SETNI instr: set all the instrument table 



RTS instruction 



sub08: 

.byte $42, $01 

.byte $3F, $01 

.byte $3C, $01 

.byte $3A, $01 

.byte $36, $01 

.byte $33, $01 

.byte $30, $01 

.byte $2E, $01 

.byte $2A, $01 

.byte $2E, $01 



86 



.byte $30, $01 

.byte $33, $01 

.byte $36, $01 

.byte $3A, $01 

.byte $3C, $01 

.byte $C0 



e5_voicel 




byte 


$D2, 


$1C, <insOB, >insO 


byte 


$37, 


$02 


byte 


$36, 


$02 


byte 


$33, 


$02 


byte 


$35, 


$04 


byte 


$36, 


$02 


byte 


$37, 


$04 


byte 


$CC, 


$03 


byte 


$36, 


$02 


byte 


$36, 


$04 


byte 


$CE 




byte 


$5F, 


$01 


byte 


$C2, 


<sub08, >sub08 


byte 


$3F, 


$01 


byte 


$42, 


$01 


byte 


$5F, 


$02 


byte 


$36, 


$02 


byte 


$C0 





tune5_voice2 : 

.byte $D2, $1C, <insOB, >insOE 

.byte $30, $02 

.byte $30, $02 

.byte $CC, $05 

.byte $30, $02 

.byte $30, $04 

.byte $CE 

.byte $5F, $01 

.byte $42, $01 

.byte $C2, <sub08, >sub08 

.byte $3F, $01 

.byte $5F, $02 

.byte $30, $02 

.byte $C0 



$1C, <insOE 



<fil03, 
$04 
$02 
$02 



>fil03 



tune5_voice3 
.byte $D2, 
.byte $E0 
.byte $E2, 
.byte $CC, 
.byte $18, 
.byte $24, 
.byte $CE 
.byte $CC, $04 
.byte $1B, $02 
.byte $27, $02 
.byte $CE 
.byte $5F, $03 
.byte $3F, $01 
.byte $42, $01 
.byte $C2, <sub08, >sub08 
.byte $5F, $02 
.byte $1E, $02 
.byte $C0 



>insOE 



par05 : 

.byte $41 
.byte $06, 
.byte $19 
.byte $14 



$59 



tune8_voicel : 

.byte $D2, $17, <insOB, >insOE 

.byte $D4, <par05, >par05 

.byte $37, $01 

.byte $37, $01 

.byte $37, $04 

.byte $3C, $04 

.byte $3B, $04 

.byte $3E, $04 

.byte $3C, $04 

.byte $37, $0A 

.byte $37, $01 

.byte $37, $01 

.byte $37, $04 

.byte $3C, $04 

.byte $3B, $04 

.byte $3E, $04 

.byte $A0, $13 

.byte $9E, $09 

.byte $40, $01 

.byte $C0 



RTS instruction 



SETNI instr: set all the instrument table 



FOR inst: repeat 3h times 

NEXT instr 

JSR instruction: execute subroutine 



; RTS instruction 

; SETNI instr: set all the instrument table 

; FOR inst: repeat 5h times 

; NEXT instr 

; JSR instruction: execute subroutine 

; RTS instruction 



SETNI instr: set all the instrument table 
LF3: low filter (max resonance) on voice 3 
FILTA instr: set filter table 
FOR inst: repeat 4h times 



NEXT instr 

FOR inst: repeat 4h times 

NEXT instr 



JSR instruction: execute subroutine 



RTS instruction 



control: rectangular 
AD/SR 



SETNI instr: set all the instrument table 
INSTR instruction: select instrument parameter 



RTS instruction 
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tune8_voice 


? • 


.byte 


$D2 


$17, <insOB, >ins0 


.byte 


$D4 


<par05, >par05 


.byte 


$43 


$01 


.byte 


$43 


$01 


.byte 


$43 


$04 


.byte 


$48 


$04 


.byte 


$47 


$04 


.byte 


$4A 


$04 


.byte 


$48 


$04 


.byte 


$40 


$01 


.byte 


$40 


$01 


.byte 


$40 


$01 


.byte 


$50 


$01 


.byte 


$41 


$01 


.byte 


$41 


$01 


.byte 


$41 


$01 


.byte 


$50 


$01 


.byte 


$40 


$01 


.byte 


$40 


$01 


.byte 


$40 


$01 


.byte 


$43 


$01 


.byte 


$43 


$04 


.byte 


$48 


$04 


.byte 


$47 


$04 


.byte 


$4A 


$04 


.byte 


$9C 


$13 


.byte 


$9B 


$09 


.byte 


$3C 


$01 


.byte 


$C0 





SETNI instr: set all the instrument table 
INSTR instruction: select instrument parameter 



RTS instruction 



tune8_voice3 : 

.byte $D2, $1C, <insOB, >insOE 

.byte $E0 

.byte $E2, <fil03, >fil03 

.byte $5F, $02 

.byte $CC, $06 



.byte 


$24, $04 








.byte 


$1F, $04 








.byte 


$CE 








.byte 


$CA, $18, $41 






.byte 


$CA, $1B, $28 






.byte 


$84, $13 








.byte 


$7F, $09 








.byte 


$24, $01 








.byte 


$C0 






; 


org $3F00 








nstrVo 


Lcel : 








.byte 


<inst_CO_vl, 


>inst_ 


CO 


vl ; 


.byte 


<inst_C2_vl, 


>inst_ 


C2 


vl ; 


.byte 


<inst_C4_vl, 


>inst_ 


C4 


vl ; 


.byte 


<inst C6 vl. 


>inst_ 


_C6_ 


_vi ; 


.byte 


$5A, $0A 








.byte 


<inst_CA_vl, 


>inst_ 


_CA_ 


vl ; 


.byte 


<inst_CC_vl, 


>inst_ 


_CC_ 


vl ; 


.byte 


<inst CE vl. 


>inst_ 


_CE_ 


_vi ; 


.byte 


$5A, $0A 








.byte 


<inst_D2_vl, 


>inst_ 


D2 


vl ; 


.byte 


<inst_D4_vl, 


>inst_ 


_D4_ 


_vi ; 


.byte 


<inst D6 vl. 


>inst_ 


_D6_ 


_vi ; 


.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


<inst DE vl. 


>inst_ 


_DE_ 


_vi ; 


.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


$5A, $0A 








.byte 


<inst_FO_vl, 


>inst_ 


_F0_ 


_vi ; 


nstrVo 


Lce2: 








.byte 


<inst_C0_v2, 


>inst_ 


CO 


v2 ; 


.byte 


<inst_C2_v2, 


>inst_ 


C2 


v2 ; 


.byte 


<inst C4 v2, 


>inst_ 


_C4_ 


_v2 ; 


.byte 


$5D, $0A 








.byte 


$5D, $0A 








.byte 


<inst_CA_v2, 


>inst_ 


_CA_ 


v2 ; 


.byte 


<inst_CC_v2, 


>inst_ 


_CC_ 


v2 ; 


.byte 


<inst CE v2, 


>inst_ 


_CE_ 


_v2 ; 


.byte 


$5D, $0A 








.byte 


<inst_D2_v2, 


>inst_ 


D2 


v2 ; 


.byte 


<inst_D4_v2, 


>inst_ 


D4 


v2 ; 


.byte 


<inst_D6_v2, 


>inst_ 


D6 


v2 ; 



SETNI instr: set all the instrument table 
LF3: low filter (max resonance) on voice 3 
FILTA instr: set filter table 

FOR inst: repeat 6h times 



NEXT instr 

SET instr: 18h set control to rectangular 



RTS instruction 



CO 
C2 
C4 
C6 

CA 
CC 
CE 

D2 
D4 
D6 



CO 
C2 

C4 



CA 
CC 
CE 

D2 
D4 
D6 



RTS 
JSR 
JMP 
JSRT 

SET 
FOR 
NEXT 

SETNI 
INSTR 
SETCI 



DE: SET2CI 



FO: SETFI 



RTS 
JSR 
JMP 



SET 
FOR 
NEXT 

SETNI 
INSTR 
SETCI 
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.byte 


$5D, $0A 












.byte 


$5D, $0A 












.byte 


<inst_DC_v2, 


>inst_ 


_DC_ 


v2 


DC 


SET2I 


.byte 


<inst DE v2. 


>inst_ 


_DE_ 


_v2 


DE 


SET2CI 


.byte 


$5D, $0A 












.byte 


$5D, $0A 












.byte 


$5D, $0A 












.byte 


$5D, $0A 












.byte 


$5D, $0A 












.byte 


$5D, $0A 












.byte 


$5D, $0A 












.byte 


$5D, $0A 












.byte 


<inst_F0_v2, 


>inst_ 


_F0_ 


_v2 


FO 


SETFI 


nstrVoiceS : 












.byte 


<inst_C0_v3, 


>inst_ 


CO 


v3 


CO 


RTS 


.byte 


<inst_C2_v3, 


>inst_ 


C2 


v3 


C2 


JSR 


.byte 


<inst_C4_v3, 


>inst_ 


C4 


v3 


C4 


JMP 


.byte 


<inst C6 v3. 


>inst_ 


_C6_ 


_v3 


C6 


JSRT 


.byte 


$60, $0A 












.byte 


<inst_CA_v3, 


>inst_ 


CA 


v3 


CA 


SET 


.byte 


<inst_CC_v3, 


>inst_ 


CC 


v3 


CC 


FOR 


.byte 


<inst CE v3. 


>inst_ 


_CE_ 


_v3 


CE 


NEXT 


.byte 


$60, $0A 












.byte 


<inst_D2_v3, 


>inst_ 


D2 


v3 


D2 


SETNI 


.byte 


<inst D4 v3. 


>inst_ 


_D4_ 


_v3 


D4 


INSTR 


.byte 


$60, $0A 












.byte 


<inst D8 v3. 


>inst_ 


_D8_ 


_v3 


D8 


EXCT 


.byte 


$60, $0A 












.byte 


<inst_DC_v3, 


>inst_ 


_DC_ 


v3 


DC 


SET2I 


.byte 


<inst_DE_v3, 


>inst_ 


DE 


v3 


DE 


SET2CI 


.byte 


<inst_E0_v3, 


>inst_ 


EO 


v3 


EO 


LF3 


.byte 


<inst E2 v3. 


>inst_ 


_E2_ 


_v3 


E2 


FILTA 


.byte 


$60, $0A 












.byte 


$60, $0A 












.byte 


$60, $0A 












.byte 


$60, $0A 












.byte 


$60, $0A 












.byte 


$60, $0A 












.byte 


<inst_F0_v3, 


>inst_ 


_F0_ 


_v3 


FO 


SETFI 



Calculate the right address 



calcAddress : 



Ida 


$1FFF 


sec 




sbc 


#$08 


tax 




Ida 


#$00 


sta 


$FB 


sta 


$FC 


cpx 


#$00 


beq 


skipCalc 


iterate : 




Ida 


$FB 


clc 




adc 


#$5D 


sta 


$FB 


Ida 


$FC 


adc 


#$00 


sta 


$FC 


dex 




bne 


iterate 


skipCalc : 




Ida 


$FC 


ora 


#$20 


sta 


$FC 


Idx 


#$00 


Ida 


$FB 


Idy 


$FC 


jsr 


setSoundEffect 


jsr 


f ixForNext 


Idx 


#$01 


Ida 


$FB 


Idy 


$FC 


jsr 


setSoundEffect 


jsr 


f IxForNext 


Idx 


#$02 


Ida 


$FB 


Idy 


$FC 


jsr 


setSoundEffect 


jmp 


setlnterrupt 



low address 
high address 



this is according with org $2000 



f ixForNext : 
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Ida $FB 












c 


Ic 














a 


dc #$1F 












sta $FB 












Ida $FC 












a 


dc #$00 












sta $FC 












r 


ts 














;985E 


AE FF 


IF 


LDX 


$1FFF 








;9861 


BD 90 


40 


LDA 


$4090, X 








;9864 


DO 03 




BNE 


$9869 








;9866 


4C 67 


IF 


JMP 


setlnterrupt 






; 9869 


A9 FO 




LDA 


#$F0 








; 986B 


8D 04 


DC 


STA 


$DC04 


Timer 


A #1: Lo 


; 986E 


h9 49 




LDA 


#$49 








; 9870 


8D 05 


DC 


STA 


$DC05 


Timer 


A #1: Hi 


; 9873 


4C 67 


IF 


JMP 


setlnterrupt 






routl3 : 
















-byte 


$84, 


$0C 






Play 


Sample 


4 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$82, 


$0C 






Play 


Sample 


2 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$84, 


$06 






Play 


Sample 


4 


.byte 


$84, 


$06 






Play 


Sample 


4 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$82, 


$0C 






Play 


Sample 


2 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$84, 


$0C 






Play 


Sample 


4 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$82, 


$0C 






Play 


Sample 


2 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$84, 


$06 






Play 


Sample 


4 


.byte 


$84, 


$06 






Play 


Sample 


4 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$86, 


$06 






Play 


Sample 


6 


.byte 


$60 








RTS 







Set sample 
A^sample duration 
X-low address 
Y=high address 



setSample : 








sta $DC 




store sample duration 


stx $DA 




store low address of sample pattern 


sty $DB 




store high address of sample pattern 


Ida #$07 






sta $DD 
rts 




store stack index for sample 


Sample_Tunel 








.byte 


$20, 


<rout01, 


>rout01 


JSR instr 


.byte 


$20, 


<rout02. 


>rout02 


JSR instr 


.byte 


$20, 


<rout02. 


>rout02 


JSR instr 


.byte 


$20, 


<rout01. 


>rout01 


JSR instr 


.byte 


$49, 


$02 




FOR instr: repeat 02 times (level 1) 


.byte 


$20, 


<rout02, 


>rout02 


JSR instr 


.byte 


$20, 


<rout03, 


>rout03 


JSR instr 


.byte 


$49, 


$03 




FOR instr: repeat 03 times (level 2) 


.byte 


$82, 


$01 




Play Sample 2 


.byte 


$82, 


$01 




Play Sample 2 


.byte 


$82, 


$06 




Play Sample 2 


.byte 


$40 






NEXT instr (level 2) 


.byte 


$40 






NEXT instr (level 1) 


.byte 


$20, 


<rout06, 


>rout06 


JSR instr 


.byte 


$87, 


$78 




Play Nothing 


.byte 


$49, 


$07 




FOR instr: repeat 07 times 


.byte 


$87, 


$80 




Play Nothing 


.byte 


$40 






NEXT instr 


.byte 


$20, 


<rout04, 


>rout04 


JSR instr 


.byte 


$20, 


<rout05. 


>rout05 


JSR instr 


.byte 


$20, 


<rout04, 


>rout04 


JSR instr 


.byte 


$20, 


<rout07, 


>rout07 


JSR instr 


.byte 


$20, 


<rout04. 


>rout04 


JSR instr 


.byte 


$20, 


<rout05. 


>rout05 


JSR instr 


.byte 


$20, 


<rout06, 


>rout06 


JSR instr 


.byte 


$20, 


<rout08, 


>rout08 


JSR instr 


.byte 


$20, 


<rout06, 


>rout06 


JSR instr 


.byte 


$49, 


$04 




FOR instr: repeat 04 times 


.byte 


$20, 


<rout06. 


>rout06 


JSR instr 



90 





byte 


$20, 


<rout08. 


>rout08 


JSR instr 




byte 


$40 






NEXT instr 




byte 


$20, 


<rout06, 


>rout06 


JSR instr 




byte 


$20, 


<rout06. 


>rout06 


JSR instr 




byte 


$87, 


$18 




Play Nothing 




byte 


$20, 


<rout02, 


>rout02 


JSR instr 




byte 


$20, 


<rout02, 


>rout02 


JSR instr 




byte 


$49, 


$03 




FOR instr: repeat 03 times 




byte 


$20, 


<rout09. 


>rout09 


JSR instr 




byte 


$40 






NEXT instr 




byte 


$20, 


<rout06, 


>rout06 


JSR instr 




byte 


$20, 


<rout08, 


>rout08 


JSR instr 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$20, 


<rout08. 


>rout08 


JSR instr 




byte 


$20, 


<routl0. 


>routlO 


JSR instr 




byte 


$20, 


<rout06. 


>rout06 


JSR instr 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$20, 


<rout06. 


>rout06 


JSR instr 




byte 


$49, 


$03 




FOR instr: repeat 03 times 




byte 


$20, 


<rout09, 


>rout09 


JSR instr 




byte 


$40 






NEXT instr 




byte 


$20, 


<rout06. 


>rout06 


JSR instr 




byte 


$20, 


<rout08. 


>rout08 


JSR instr 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$85, 


$04 




Play Sample 5 




byte 


$85, 


$04 




Play Sample 5 




byte 


$20, 


<routl0, 


>routlO 


JSR instr 




byte 


$85, 


$02 




Play Sample 5 




byte 


$85, 


$06 




Play Sample 5 




byte 


$20, 


<rout06, 


>rout06 


JSR instr 




byte 


$49, 


$04 




FOR instr: repeat 04 times 




byte 


$86, 


$02 




Play Sample 6 




byte 


$40 






NEXT instr 




byte 


$49, 


$03 




FOR instr: repeat 03 times 




byte 


$20, 


<routll, 


>routll 


JSR instr 




byte 


$40 






NEXT instr 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$20, 


<rout08, 


>rout08 


JSR instr 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$20, 


<rout08. 


>rout08 


JSR instr 




byte 


$20, 


<routl0. 


>routlO 


JSR instr 




byte 


$49, 


$03 




FOR instr: repeat 03 times 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$40 






NEXT instr 




byte 


$49, 


$03 




FOR instr: repeat 03 times 




byte 


$20, 


<routll, 


>routll 


JSR instr 




byte 


$40 






NEXT instr 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$20, 


<rout08, 


>rout08 


JSR instr 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$85, 


$04 




Play Sample 5 




byte 


$85, 


$04 




Play Sample 5 




byte 


$20, 


<routl0, 


>routlO 


JSR instr 




byte 


$85, 


$02 




Play Sample 5 




byte 


$85, 


$06 




Play Sample 5 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$06 




Play Sample 4 




byte 


$49, 


$04 




FOR instr: repeat 04 times 




byte 


$86, 


$02 




Play Sample 6 




byte 


$40 






NEXT instr 




byte 


$49, 


$02 




FOR instr: repeat 02 times 




byte 


$84, 


$02 




Play Sample 4 




byte 


$84, 


$0E 




Play Sample 4 




byte 


$20, 


<rout08. 


>rout08 


JSR instr 




byte 


$20, 


<rout08. 


>rout08 


JSR instr 




byte 


$20, 


<routl0. 


>routlO 


JSR instr 




byte 


$87, 


$08 




Play Nothing 




byte 


$20, 


<rout08, 


>rout08 


JSR instr 




byte 


$20, 


<rout08, 


>rout08 


JSR instr 




byte 


$40 






NEXT instr 




byte 


$84, 


$02 








byte 


$84, 


$0E 








byte 


$20, 


<rout08, 


>rout08 


JSR instr 




byte 


$20, 


<rout08, 


>rout08 


JSR instr 




byte 


$20, 


<routl0, 


>routlO 


JSR instr 




byte 


$20, 


<rout06. 


>rout06 


JSR instr 




byte 


$20, 


<rout08. 


>rout08 


JSR instr 




byte 


$20, 


<rout08, 


>rout08 


JSR instr 




byte 


$20, 


<rout06, 


>rout06 


JSR instr 


oSample : 










byte 


$87, 


$64 




Play Nothing 



91 



-byte $4C, <noSample, >noSample 



Set the retun address for 
sample routine 



set return 


sample : 


Idx 


$DD 


clc 




adc 


$DA 


sta 


$78, X 


Ida 


$DB 


adc 


#$00 


sta 


$80, X 


dex 




stx 


$DD 


rts 





; read stack index for sample 

; add to low addr sample pattern index 
; store low addr sample pattern 



; store high addr sample pattern 

; store actual stack index for sample 



RTS istruction for sample 
return from subroutine 



inst 


_60_sample : 




mc 


$DD 




Idx 


$DD 


restoreSampleAddr : 




Ida 


$78, X 




sta 


$DA 




Ida 


$80, X 




sta 


$DB 




rts 





inc stack index for sample 



read low addr from stack 

store low addr sample pattern index 

read high addr from stack 

store high addr sample pattern index 



; high address to play sample routine 

highPSample : 

.byte >P Sample 1, >PSample2, >P Sample 3 
.byte >P Sample 4, >P Sample 5, >P Sample 6 
.byte >PNothing 



JSR sample instruction 
#1 low address 
#2 high address 



Ins t_2 0_s amp 1 e : 
Ida #$03 
jsr set_return_s ample 



store return pointer in stack 



; JMP sample instruct 


ion 




inst_4C_ 


.sample : 






iny 








Ida 


$DA) ,y 




read low address 


tax 








iny 








Ida 


$DA) ,y 




read high address 


stx $DA 




set new low address 


sta $DB 




set new high address 


rts 








routOl : 










.byte 


$49, 


$08 




FOR instr: repeat 08 times 


.byte 


$83, 


$01 




Play Sample 3 


.byte 


$83, 


$03 




Play Sample 3 


.byte 


$40 






NEXT instr 


.byte 


$49, 


$08 




FOR instr: repeat 08 times 


.byte 


$85, 


$01 




Play Sample 5 


.byte 


$85, 


$03 




Play Sample 5 


.byte 


$40 






NEXT instr 


.byte 


$20, 


<routl2. 


>routl2 


JSR instr 


.byte 


$20, 


<routl2. 


>routl2 


JSR instr 


.byte 


$20, 


<rout08, 


>rout08 


JSR instr 


.byte 


$20, 


<rout08. 


>rout08 


JSR instr 


routl2: 










.byte 


$86, 


$02 




Play Sample 6 


.byte 


$86, 


$0E 




Play Sample 6 


.byte 


$60 






RTS 


rout04 : 










.byte 


$20, 


<rout06, 


>rout06 


JSR instr 


.byte 


$20, 


<rout08, 


>rout08 


JSR instr 


.byte 


$20, 


<rout06. 


>rout06 


JSR instr 


.byte 


$20, 


<rout08. 


>rout08 


JSR instr 


.byte 


$20, 


<routlO, 


>routlO 


JSR instr 


.byte 


$20, 


<rout08, 


>rout08 


JSR instr 


.byte 


$20, 


<rout08, 


>rout08 


JSR instr 


.byte 


$20, 


<rout06, 


>rout06 


JSR instr 


.byte 


$20, 


<rout08. 


>rout08 


JSR instr 
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.byte 


$20, 


<rout06, 


>rout06 


JSR 


Lnstr 




.byte 


$20, 


<rout06, 


>rout06 


JSR 


Lnstr 




.byte 


$20, 


<rout08, 


>rout08 


JSR 


instr 




routlO : 














.byte 


$82, 


$01 




Play 


Sample 


2 


.byte 


$82, 


$01 




Play 


Sample 


2 


.byte 


$82, 


$06 




Play 


Sample 


2 


.byte 


$60 






RTS 






routes : 














.byte 


$20, 


<rout08, 


>rout08 


JSR 


instr 




.byte 


$20, 


<rout06. 


>rout06 


JSR 


instr 




routes : 














.byte 


$86, 


$02 




Play 


Sample 


6 


.byte 


$86, 


$06 




Play 


Sample 


6 


.byte 


$60 






RTS 






rout07 : 














.byte 


$20, 


<rout06. 


>rout06 


JSR 


Lnstr 




.byte 


$20, 


<rout08. 


>rout08 


JSR 


Lnstr 




rout06: 














.byte 


$81, 


$02 




Play 


Sample 


1 


.byte 


$81, 


$06 




Play 


Sample 


1 


.byte 


$60 






RTS 






rout02: 














.byte 


$20, 


<rout03. 


>rout03 


JSR 


Lnstr 




.byte 


$4C, 


<rout02_ 


, >rout02_ 


JMP 


Lnstr 




rout02_ 














.byte 


$20, 


<rout06. 


>rout06 


JSR 


Lnstr 




.byte 


$84, 


$02 




Play 


Sample 


4 


.byte 


$84, 


$06 




Play 


Sample 


4 


.byte 


$84, 


$02 




Play 


Sample 


4 


.byte 


$84, 


$06 




Play 


Sample 


4 


.byte 


$60 






RTS 







FOR inst 


r for sample 


#1 number of cycle 


nst 4 9 sample: 


Ida 


#$02 


]sr 


set_return_s ample 


pha 




my 




Ida 


($DA) ,y 


sta 


$89, X 


pla 




sta 


$DB 


Ida 


$79, X 


sta 


$DA 


rts 




NEXT instr. for sample 



inst_4 0_sample : 
inc $DD 
Idx 
dec 
beq 
jsr 
dec 
rts 



$DD 
$88, X 

cycleEndS ample 
restoreSampleAddr 

$DD 



set return address for cycle 

read number of cycle 

store the number of cycle for the for 

set low addr sample pattern index 

set high addr sample pattern index 



inc stack index for sample 

dec number of cycle 
end of cycles? 



cycleEndSample : 

stx $DD 

inc $DA 

bne skipFixHigh 

inc $DB 
skipFixHigh : 

rts 



go to next instruction (low addr) 
fix high address 



rout03: 

.byte $20, 
.byte $20, 
.byte $20, 
.byte $20, 
.byte $20, 
.byte $20, 
.byte $4C, 

rout09: 

.byte $20, 
.byte $20, 
.byte $83, 



<rout04, 
<rout05, 
<rout04, 
<rout07, 
<rout04, 
<rout05, 
<rout04, 



<rout06, 
<rout08, 
$02 



>rout04 
>rout05 
>rout04 
>rout07 
>rout04 
>rout05 
>rout04 



>rout06 
>rout08 



JSR 


instr 


JSR 


instr 


JSR 


instr 


JSR 


instr 


JSR 


instr 


JSR 


instr 


JMP 


instr 


JSR 


instr 


JSR 


instr 


Play 


Sample 3 
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.byte 


$83, 


$06 




Play 


Sample 


3 






.byte 


$20, 


<rout08. 


>rout08 


JSR 


instr 








.byte 


$20, 


<routl0, 


>routlO 


JSR 


instr 








.byte 


$20, 


<rout08. 


>rout08 


JSR 


instr 








.byte 


$83, 


$02 














.byte 


$83, 


$06 














.byte 


$4C, 


<rout08, 


>rout08 


JMP 


instr 








routll : 


















.byte 


$84, 


$02 




play 


Sample 


4 






.byte 


$84, 


$06 




play 


Sample 


4 






.byte 


$20, 


<rout08, 


>rout08 


JSR 


Lnstr 








.byte 


$83, 


$02 




Play 


Sample 


3 






.byte 


$83, 


$06 




Play 


Sample 


3 






.byte 


$20, 


<rout08. 


>rout08 


JSR 


Lnstr 








.byte 


$20, 


<routl0, 


>routlO 


JSR 


Lnstr 








.byte 


$20, 


<rout08, 


>rout08 


JSR 


Lnstr 








.byte 


$83, 


$02 




Play 


Sample 


3 






.byte 


$83, 


$06 




Play 


Sample 


3 






.byte 


$4C, 


<rout08. 


>rout08 


JMP 


Lnstr 








Sample_Tune2 
















.byte 


$87, 


'$01 




Play 


Nothing 






STune2_ 


















.byte 


$49, 


$07 




FOR 


Lnstr: repeat 


07 times 




.byte 


$85, 


$18 




Play Sample 5 






.byte 


$40 






NEXT 


instr 








.byte 


$85, 


$0C 




Play 


Sample 


5 






.byte 


$85, 


$06 




Play 


Sample 


5 






.byte 


$85, 


$06 




Play 


Sample 


5 






.byte 


$49, 


$06 




FOR 


Lnstr: repeat 


6 times 




.byte 


$85, 


$02 




Play Sample 5 






.byte 


$85, 


$16 




Play Sample 5 






.byte 


$40 






NEXT 


instr 








.byte 


$82, 


$02 




Play 


Sample 


2 






.byte 


$82, 


$16 




Play 


Sample 


2 






.byte 


$49, 


$02 




FOR 


Lnstr: repeat 


02 times 




.byte 


$83, 


$02 




Play Sample 3 






.byte 


$83, 


$04 




Play Sample 3 






.byte 


$40 






NEXT 


instr 








.byte 


$49, 


$02 




FOR 


Lnstr: repeat 


02 times 




.byte 


$84, 


$02 




Play Sample 4 






.byte 


$84, 


$04 




Play Sample 4 






.byte 


$40 






NEXT 


instr 








.byte 


$49, 


$04 




FOR 


Lnstr: repeat 


04 times 


(level 1) 


.byte 


$49, 


$03 




FOR 


instr : 


repeat 03 times 


(level 2) 


.byte 


$20, 


<routl3. 


>routl3 


JSR instr 








.byte 


$82, 


$06 




Play Sample 2 






.byte 


$83, 


$06 




Play Sample 3 






.byte 


$86, 


$06 




Play Sample 6 






.byte 


$86, 


$06 




Play Sample 6 






.byte 


$40 






NEXT instr 


(level 2) 




.byte 


$20, 


<routl3, 


>routl3 


JSR 


instr 








.byte 


$82, 


$06 




Play 


Sample 


2 






.byte 


$83, 


$06 




Play Sample 3 






.byte 


$82, 


$06 




Play 


Sample 


2 






.byte 


$82, 


$06 




Play 


Sample 


2 






.byte 


$40 






NEXT 


instr 


(level 


1) 




.byte 


$4C, 


<STune2_ 


, >STune2_ 


JMP 


Lstr 








; Play Sampl 


e 6 routine 




PSample 


S '. 








Idy #$05 














Ida #$94 














c 


Lc 
















adc #$40 




$94 + 


?40=$D4 








sta V0I6+2 




unmask D418 


address 




nextDelayPG : 
















Idx #$14 















againPf 



Ida delayTabP6, y 



delayP6: 




sec 




sbc 


#$01 


bne 


delayPG 


Ida 


$DE 


clc 




adc 


#$98 


sta 


$DE 


and 


#$0F 



V016: 



sta $9418 



read duration 
waste some times 

increase up volume sequence 
D418: play sample 
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dex 

bne againPG 

dey 

bpl nextDelayPG 

Ida #$94 
sta V0I6+2 
rts 



; mask again D418 address 



Play Sample 3 routine 



PSample3 : 

Idy #$05 

Ida #$94 

clc 

adc #$40 

sta V0I3+2 

nextDelayP3 : 

Idx #$19 

againP3 : 

Ida delayTabP3,y 

delayP3: 
sec 

sbc #$01 

bne delayP3 

Ida $DE 

clc 

adc #$65 

sta $DE 

and #$0F 



Vol3: 



sta $9418 

dex 

bne againP3 

dey 

bpl nextDelayP3 

Ida #$94 
sta V0I3+2 
rts 



; unmask D418 address 

; set repeating value 

; waste some times 

; increase up volume sequence 

; D418: play sample 

; select next delay in table 

; mask again D418 address 



; low address to play sample routine 

lowPSample : 

.byte <PSamplel, <PSample2, <PSample3 
.byte <PSample4, <PSample5, <PSample6 
.byte <PNothing 



Play Sample 5 routine 



PSampleS : 

Idy #$05 

Ida #$94 

clc 

adc #$40 

sta V0I5+2 

nextDelayP5 : 

Idx #$19 

againP5 : 

Ida delayTabP5,y 

delayP5 : 
sec 

sbc #$01 

bne delayPS 

Ida $DE 

clc 

adc #$DD 

sta $DE 

and #$0F 



Vol5: 



sta $9418 

dex 

bne againPS 

dey 

bpl nextDelayP5 

Ida #$94 



; unmask D418 address 

; set repeating value 

; waste some times 

; increase up volume sequence 

; D418: play sample 
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sta V0I5+2 
rts 

; high pointers of operations 

highOper : 

-byte >Inst_20_sample 
-byte >inst_4 0_sample 
-byte >inst_60_sample 
-byte >inst_4 9_sample 
-byte >inst_4C_sample 



mask again D418 address 



Play Sample 4 routine 



PSample4 : 

Idy #$05 

Ida #$94 

clc 

adc #$40 

sta V0I4+2 

nextDelayP4 : 

Idx #$19 

againP4 : 

Ida delayTabP4,y 

delayP4 : 
sec 

sbc #$01 

bne delayP4 

Ida $DE 

clc 

adc #$DD 

sta $DE 

and #$0F 



Vol4; 



sta $9418 

dex 

bne againP4 

dey 

bpl nextDelayP4 

Ida #$94 
sta V0I4+2 
rts 



Init sample routine 



initSample : 

Idx #$00 

stx $DF 

dex 

stx $DC 

Idx #<noSample 

Idy #>noSample 

stx $DA 

sty $DB 

rts 



Play Sample 2 routine 



PSample2 : 

Idy #$0D 

Ida #$94 

clc 

adc #$40 

sta V0I2+2 

nextDelayP2 : 

Idx #$0C 

againP2 : 

Ida delayTabP2,y 

delayP2: 
sec 

sbc #$01 

bne delayP2 

Ida $DE 

clc 

adc #$0E 

sta $DE 



unmask D418 address 

set repeating value 

waste some times 

increase up volume sequence 

D418: play sample 



mask again D418 address 



; reset sample generation index routine 
; sample duration 



; store low address of sample pattern 
; store high address of sample pattern 



; unmask D418 address 

; set repeating value 

; waste some times 

; increase up volume sequence 
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Vol2: 



and #$0F 

sta $9418 

dex 

bne againP2 

dey 

bpl nextDelayP2 

Ida #$94 

sta V0I2+2 

rts 



D418: play sample 

select next delay in table 
mask again D418 address 



Play Sample 1 routine 



PSamplel : 

Idy #$05 

Ida #$94 

clc 

adc #$40 

sta Voll+2 

nextDelayPl : 

Idx #$0C 

againPl : 

Ida delayTabPl,y 

delayPl : 
sec 

sbc #$01 
bne delayPl 

Ida $DE 
clc 

adc #$01 

sta $DE 

and #$0F 
Veil: 

sta $DD18 

dex 

bne againPl 

dey 

bpl nextDelayPl 

Ida #$DD 
sta Voll+2 
PNothing: 
rts 



; unmask D418 address 

; set repeating value 

; waste some times 

; increase up volume sequence 

; play sample 

; select next delay in table 

; mask again D418 address 



; table of operation 
operTable : 

.byte $20, $40, $60, $49, $4C 

delayTabP3: 

.byte $20, $10, $08, $04, $02, $01 

; low pointer of operations 
lowOper : 

.byte <Inst_20_sample 

.byte <inst_40_sample 

.byte <inst_60_sample 

.byte <inst_4 9_sample 

.byte <inst_4C_sample 

delayTabPS : 

.byte $23, $14, $0C, $09, $06, $03 

delayTabP4 : 

.byte $05, $1E, $19, $14, $0F, $0A 

delayTabP6: 

.byte $28, $0A, $14, $0A, $0F, $0A 

delayTabP2: 

.byte $20, $10, $08, $04, $02, $01, $28 
.byte $0A, $3C, $0A, $14, $0A, $20, $40 



delayTabPl : 



.byte $40, $1E, $3E, $19, $3C, $1^ 



; table of delay for Play sample 1 



Generate sample 

If one routine of sample is 

available, it will be called 



SampleGeneration : 
Ida $DF 



load sample generation routine index 
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beq 


exitSample ; 


Ida 


#$00 


sta 


$DF 


callPSampl 


e : 


jsr 


PSampleB ; 


Ida 


#$0F 


ora 


TEMP 


sta 


$D418 


rts 




; Play sample engine routine 


playSample 




dec 


$DC 


bne 


exitSample 


nextPattern : 


Idy 


#$00 


Ida 


($DA),y 


bmi 


isPlay 


Idx 


#$FF 


nextOper : 




inx 




cmp 


operTable, x 


bne 


nextOper 


Ida 


lowOper, X 


sta 


decoded+1 


Ida 


highOper, x 


sta 


decoded+2 


decoded: 




jsr 


in st_60_s ample 


jmp 


nextPattern 


isPlay : 




sta 


$DF 


tax 




iny 




Ida 


($DA),y 


sta 


$DC 


Ida 


$DA 


clc 




adc 


#$02 


sta 


$DA 


Ida 


$DB 


adc 


#$00 


sta 


$DB 


Ida 


lowPSample-$81, x 


sta 


callPSample+1 


Ida 


highPSample-$81,x 


sta 


callPSample+2 


exitSample 




rts 





if exit 



execute play sample routine 
turn the volume to max 
turn filter to the store value 
Select volume and filter mode 



dec sample duration 



read sample pattern 
jump if >^8 



compare value to table for getting index of instr. 

read low address of routine 
read high address of routine 

execute decoded instruction 

store readed sample generator routine 



read sample duration 
store sample duration 



adjust pattern pointer low 

adjust pattern pointer high 

low address of play sample routines 

high address of play sample routine 




Conclusion 



Are this the end about the Martin engine? 

Maybe not, but now I would like to talk about the rip itself. It is a very clean rip, where the ripper 
had manage a complete code initialization that take order especially into sound effects generation. 
However in the rip there other part of Martin Engine (a voice 1 and 2 part), maybe present in the 
game but that I haven' t investigated why it is present (probably they are part of the relocation of the 
code into upper memory). 
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^csJ<S3in ^ end 
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